Re : Position d'un chiffre dans une chaine de caractére !!!( consommation de bières d
re,
en fonction
Function TrouverChiffre(Phrase As String) As Long
Application.Volatile
Dim i, cr
For i = 1 To Len(Phrase)
cr = Asc(Mid(Phrase, i, 1))
If cr > 47 And cr < 58 Then TrouverChiffre = i: i = Len(Phrase)
Next
End Function
dans le tableur, taper dans une cellule, = TrouverChiffre(CelluleQuiContientLeTexte)