Message d'alerte !

[Gérard du 13]

Bonsoir le forum
J'ai dans 1 UserForm 6 TextBox et un CommandButon
J'aurais aimé pouvoir ouvrir un MSBox ou autre si quand je valide par le Commandbouton un ou plusieur TextBox n'est pas rempli.
C'est trés simple .......... mais je ne sais pas faire je tatonne.
Merci du coup de main.
Gérard

 

[porcinet82]

Re : Message d'alerte !

Salut,

En supposant que tes textbox soit toujours nommés Textbox avec un numero derriere, je dirai un truc de ce genre :

For i = 1 To 6
    If Me.Controls("Textbox" & i).Value = "" Then
        MsgBox "Le Textbox " & i & " n'est pas remplit !!!!", vbCritical + vbOKOnly, ""
        Me.Controls("Textbox" & i).SetFocus
        Exit Sub
    End If
Next i

@+

 

[Gérard du 13]

Re : Message d'alerte !

merci porcinet
mais ce code faut'il le placer au début du code du CommandButton ?
@ +

 

[porcinet82]

Re : Message d'alerte !

re,

Et bien tout depend des actions que tu veux faire dans ton boutons. Si la première chose que tu veux vérifier est de vérifier que les textbox sont remplis, tu mets ce code en tout debut du code de ton bouton.

@+

 

[Gérard du 13]

Re : Message d'alerte !

C'est sympa merçi pour le coup de main @+ Gérard