[gbinforme]

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.