Discussion :

[jamelie]

Bonjour,
j'ai une userform qui contient un contrôle multipage. je souhaiterai appliquer un msgbox d'erreur de saisie spécifique à chaque page mais je n'y arrive pas.
Si je fais

Code :

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

1
2
 
for each ctrl in userform1.page("nomdelapage").controls

il me reconnait pas page et me met une erreur. et si je fais un if pour chaque textbox j'ai plus de 300 fois le même code à écrire sachant qu'en plus si le message se déclenche il se declenche 1fois pour chaque erreur au lieu de 1fois pour toutes les erreurs en même temps.
y aurait-il une solution à mon problème?

Merci beaucoup.
Jamelie

[malhivertman1]

Et pourquoi tu ne met pas "s'il y a une erreur alors aller un msgbox ou sur une procédure ou il y a ton message d'erreur" et aprés tu stop ton prog pour pas qu'il t'affiche le msgbox a chaque erreur retrouvé

[jamelie]

Bah je sais pas faire ca. je connais pas ce dont tu me parle.

[Vesta]

Code :

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

1
2
3
For Each ctrl In UserForm1.base("Reclam").Controls
    MsgBox ctrl.Name
Next

Désolé mais ca marche jamelie... Je viens d'essayer...

Attention d'utiliser les noms corrects de tes pages...

Reclam Pan TxService TxAvoirs NCTemp Ret CoutNonQual

[malhivertman1]

sachant qu'en plus si le message se déclenche il se declenche 1fois pour chaque erreur au lieu de 1fois pour toutes les erreurs en même temps.

Si une fois que tu as une erreur tu fais par exemple, je ne sais pas moi, un "end sub" et ben ton code sortira de ta fonction et ne continuera pas a chercher les autres erreurs donc il n'affichera pas 100 fois le même message


Bon je vois que Vesta a même testé donc suit ce qu'il a dit

Bonne journée.

[jamelie]

merki beaucoup.
j'avais marqué page à la place de base et ca voulais pas fonctionner.
je vais essayer ca, ca devrait marcher si vesta le dit.
merci encore.
bonne journée à tous