Cases vides qui cassent la tête !

[BS]

Bonjour à tous ,

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 ) .

Qui aurait la solution miracle ?

BS

 

[@+Thierry]

Salut BS, le Forum

J'aurai besoin de savoir si tu appliques ceci dans un UserForm avec des TextBox ? (tb)

Car ce code tel quel dans un UserForm n'est pas accepté...

Merci de m'éclairer...

@+Thierry

 

[BS]

Bonjour thierry et bonjour à tous !

Désolée pour cette réponse tardive ...

Il s'agit de Textbox de la boite à outils "Controles" et non pas useform...

En espèrant que cela aide !

 

[@+Thierry]

Bonjour BS

Post nous un fichier Exemple car quelque chose m'échappe dans cette boucle sans faire une collection d'activeX TextBox...

J'ai essayé de reproduire 6 textbox et d'appliquer ce code... Huuum j'ai plus de problème qu'un simple message "Lettres en doubles" !!! lol

Merci

@+Thierry

 

[BS]

Bonjour Thierry et bonjour le Forum

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 )

Enfin, merci de me dire si ça marche maintenant !

Merci.

BS

 

[@+Thierry]

Bonjour BS, le Forum


Ahhh Là oui je comprends mieux...

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 !!!

Bon App et merci
@+Thierry