Bonjour cher forum ;)

Voici le code (bien connu) qui permet de prendre sur une celllule que les chiffres de gauche parmi une chaine de caractére :

=GAUCHE(C238;SOMME(NON(ESTERREUR(STXT(C238;LIGNE(DECALER(A$1;;;NBCAR(C238)));1)*1))*1))

En C238 la cellule où on veut isoler les chiffres
Exemple cellule C238
786bobo
321gtiop

MAIS VOILA j'ai remarqué que lorsque la série de chiffres est égale à : 1731 le code prend AUSSI la premiére lettre de la chaine de caractére.
PAR exemple si en C238 j'ai   "1731tyuo"    le code me renvoi
1731t

Est ce que quelqu'un saurait-il pourquoi ?
Merci merci merci et encore merci de donner une éventuelle solution !!

+

Ah .. Bon bin c'est trés étrange alors parce que moi aussi j'ai ouvert un new classeur. (La fonction se trouve dans le module 13).
J'ai tapé dans A1 : 1731ter 1 rese
J'ai essayé mon code et il me renvoie 1731t
J'ai essayé ta manip, et j'ai #NOM

:'(

Euuuhhhhhh
Y a un autre truc bizarre.............
POURquoi lorsque j'éxécute la procédure BLABLA :

Sub BLABLA()
    fctcode
End Sub
Sub fctcode()
Dim tre As Double

For tre = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 6 Step -1
        If Cells(tre, 3).Value <> "" Then
            Cells(tre, 7).Value = ExtraireNombre(Cells(tre, 3))
        End If
Next tre
End Sub

Public Function ExtraireNombre(ByRef voRange As Range) As Long
    ExtraireNombre = Val(voRange.Text)
End Function

Ca compile mais rien ne se passe sur la feuille
Alors que quand je compile la procédure BLABLA en appuyant sur F5 Tout fonctionne correctement ?????????????????







pompompom bizzarre .. non ?? :D