Discussion :

[L_layton]

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

[marot_r]

Bonjour.

Il suffit de mettre Exit For après ton test.

Et je te suggère une méthode sans boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
public function ContientAuMoinsUnChiffre(prmValeur as string) as boolean
    ContientAuMoinsUnChiffre=prmValeur like "*[0-9]*"
end function

"*[0-9]*" est ce qu'on appelle une expression régulière (attention Like n'utilise que des expressions régulières très simples par rapport à ce qui est possible).

L'étoile (*) indique un nombre indéterminé de caractères. Ce nombre peut être 0.
Le [0-9] indique un caractère compris entre 0 et 9.

Donc là on cherche à valider si la valeur comprends un nombre indéterminés de caractères avant le chiffre, un chiffre et un nombre indéterminés de caractères après le chiffre donc au final au moins un chiffre quelque part.

A+

[L_layton]

J'ai pu trouver une autre méthode entre temps merci beaucoup