Re Fab
Q 1 =
Sub test()
TOTO = "TOTO"
MsgBox "il faut taper Toto, Mais vous avez tapé : " _
& TOTO, vbCritical, "PAS BON FAUT TAPER TOTO"
'Ou encore
MsgBox "il faut taper Toto," _
& "Mais Vous avez tapé : " & TOTO, vbCritical, _
"PAS BON FAUT TAPER TOTO"
'Ou encore
MsgBox "il faut " & _
"taper TOTO, """ _
& "Mais Vous " _
& "avez tapé : " & TOTO, vbCritical, _
"PAS BON FAUT TAPER TOTO"
'Ou encore !!!!!!!!!
MsgBox "i" _
& "l" _
& " f" _
& "a" _
& "u" _
& "t " _
& "t" _
& "a" _
& "p" _
& "e" _
& "r " _
& "T" _
& "O" _
& "T" _
& "O " _
& "M" _
& "a" _
& "i" _
& "s " _
& "V" _
& "o" _
& "u" _
& "s " _
& "avez tapé : " & TOTO, vbCritical, _
"PAS BON FAUT TAPER TOTO"
'NB Attention c'est la limite du retour de Ligne !
End Sub
Q 2 =
Tu quittes ton USF avec un CommandButton est lié a un code :
UserForm1.Hide
C'est à cause de ça.....
si tu veux réinitialiser le UserForm c'est
Unload UserForm1
Là ta TextBox1 sera remise à Zéro, enfin plutot à ""
D'ailleurs j'ai aussi donné pkus heut le moyen de la mettre à "" en cas d'erreur....
Voilà Bon UserForm Adventure Fab !!!
@+Thierry
PS oui oui je ne sais pas en Userform, mais en explications plus claires.... Oui tu fais des progrès !