chiffres et lettres

Re : chiffres et lettres

bonjour

tu peux insérer cette fonction en VBA :

Public Function premier_chiffre(text)
Dim i As Integer
premier_chiffre = 0
For i = 1 To Len(text)
If Mid(text, i, 1) > "/" And Mid(text, i, 1) < ":" Then
premier_chiffre = i
Exit Function
End If
Next i
End Function

puis il te suffit d'utiliser la formule : =premier_chiffre(A1)
si ton texte se trouve en A1 et tu peux bien sûr combiner avec d'autres formules.

Si tu n'as pas de chiffres dans ton texte, la position est à zéro.

Re : chiffres et lettres

Bonjour

voici une autre façon

Function first_num(x)
Application.Volatile
For b = 1 To Len(x)
If IsNumeric(Mid(x, b, 1)) Then
first_num = b
Exit For
End If
Next
End Function