Annalyser une chaine
shaka38
Messages postés
5
Date d'inscription
lundi 17 janvier 2005
Statut
Membre
Dernière intervention
26 mars 2005
-
15 mars 2005 à 13:49
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 15 mars 2005 à 14:14
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 15 mars 2005 à 14:14
2 réponses
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
15 mars 2005 à 14:12
15 mars 2005 à 14:12
TaChaine="italia"
For i =1 to Len(TaChaine)
If Isnumeric(Mid(Tachaine,i,1)) Then
Response = MsgBox("Il y a un Chiffre à la Position : " & i, vbExclamation, "Attention")
Exit For
End If
Next
It@li@
For i =1 to Len(TaChaine)
If Isnumeric(Mid(Tachaine,i,1)) Then
Response = MsgBox("Il y a un Chiffre à la Position : " & i, vbExclamation, "Attention")
Exit For
End If
Next
It@li@
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
15 mars 2005 à 14:14
15 mars 2005 à 14:14
un exemple :
a = "abcdef0ghi5jklm"
If a Like "*[0-9]*" Then Debug.Print "Chiffre inside"
Vala
Jack
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
a = "abcdef0ghi5jklm"
If a Like "*[0-9]*" Then Debug.Print "Chiffre inside"
Vala
Jack
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)