Bonjour,
Je cherche un moyen de détecter si un string contient un chiffre allant de 0 à 9 puis si un de ces numéros est trouvé alors on empêche l'ajout de la personne dans le formulaire.
J'ai donc fait cette boucle mais je ne sais pas comment faire pour arrêter le for une fois la valeurs trouvé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub contientUnCiffre(uneTextBox As String) Dim ContienUnChiffre As Boolean Dim ChiffreTrouve As Boolean ChiffreTrouve = False For unChiffre = 0 To 9 ContienUnChiffre = InStr(uneTextBox, unChiffre) If ContienUnChiffre = True Then ChiffreTrouveDansString = True End If Next unChiffre contientUnCiffre = ChiffreTrouveDansString ' en vba on ne fait pas de return mais on affecte au nom de la fonction une valeurs et celle ci sera retourné End Sub
Partager