Voilou un petit pb : Je veux comparer la saisie 6 textbox, si je fais :
For L= 1 To 5
For M = L + 1 To 6
If StrComp(tb(L), tb(M), 1) = 0 Then
MsgBox ("Lettres en doubles. Verifiez votre réponse ! ")
Exit Sub
Else: Message = True
End If
Next M
Next L
If Message = True Then
MsgBox ("Merci. Vous pouvez passer à la question suivante.")
End If
J'ai le message "Lettres en doubles" quand 2 cases sont vides.
J'aimerai donc la même chose mais sans la comparaison si les cases sont vides ( et pouvoir laisser des cases vides ) .
Décidemment , non seulement je tarde dans mes réponses (désolée !! ) mais en plus je ne suis pas douée pour répondre
En effet , j'ai posté (enfin il m'avait semblé ! ) une réponse hier qui disait que j'avais finalement trouvé la solution à mon problème.
J'avais également envoyé un fichier pour illustrer ce que je disais.
Donc je résume :
- Bizarre que cela ne fonctionne pas pour toi thierry
- mon code était un "résumé" de ce que j'avais noté, juste pour comprendre l'esprit
- Cf fichier joint pour éclaircir les esprits car j'ai l'impression d'être de moins en moins claire )
Je pensais en voyant l'extrait partiel de ton code au début que tes TextBox étaient nommée TB1, TB2, TB3.. etc et c'est ceci qui me chiffonnait un peu...
Non la je comprends bien mieux avec le code entier sous les yeux, tu passes par une variable... Oui OK, Tb tel quel me fesait penser à un nom de TextBox.
D'ailleurs je pense que tu pense que tu peux déclarer TB(6) As String plutôt que Variant. (économie)
Sinon donc plus de problème avec les TextBox Vides donc avec ta condition If tb(L) <> "" Then... ça marche !!!