chiffres et lettres

[wireless]

Salut forum
Dans une cellule excel, il y a des lettres et des chiffres, jusqua 120 caratères. Je cherche une fonction qui m'indique quel est la position du premier chiffre rencontré dans cette cellule, cela serait utile pour extraire le texte qui est parmi les chiffres.
Merci d'avance
Bobby

 

[gbinforme]

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.

 

[Pyrof]

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