VBA MsgBox si vide plusieurs text BOX

[Bens7]

Bonjour a tous !!
j'ai une petite question :
comment faire pour mettre la meme MsgBox "ATTENTION CASE 8 VIDE"
si une des textbox de textbox 1 a textbox 10 est vide
sans coder chaque textbox separement est-ce possible ?

 

[Pierrot93]

Re : VBA MsgBox si vide plusieurs text BOX

Bonjour,

essaye ceci :

Dim i As Byte
For i = 1 To 10
    If Me.Controls("TextBox" & i) = "" Then MsgBox "case " & i & " vide"
Next i

bon après midi
@+

 

[Staple1600]

Re : VBA MsgBox si vide plusieurs text BOX

Bonjour à tous, Pierrot93

Une variante du code Pierrot93, pour n'afficher qu'une Msgbox globale

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 10
If Me.Controls("TextBox" & i) = "" Then
verifvide = verifvide & vbTab & i & Chr(13)
End If
Next i
MsgBox "Les cases suivantes sont vides:" & Chr(13) & verifvide
End Sub

 

[Bens7]

Re : VBA MsgBox si vide plusieurs text BOX

Bah Perso celui de Pierrot plus simple !
Merci Pierrot Genial si je comprend bien Byte c'est une chaine ?

 

[Bens7]

Re : VBA MsgBox si vide plusieurs text BOX

Comment faire par exemple pour adapter ce systeme sur ce Sub:

Private Sub TextBox7_Change()
If ComboBox2 <> "" Then
SURFACEAPRIX
RECALCUL
End If
End Sub

J'ai le meme code pour les Text Box de 7 a 14 c'est Possible avec l'option _Change() ?

 

[Pierrot93]

Re : VBA MsgBox si vide plusieurs text BOX

Re, bonjour Staple

Merci Pierrot Genial si je comprend bien Byte c'est une chaine ?

non, un type de donnée, ci-dessous extrait de l'aide vba, pour y accéder, F1 sur le mot en question...

Les variables de type Byte sont stockées sous la forme d'un nombre de 8 bits (1 octet unique), non signé, compris entre 0 et 255.

 

[Pierrot93]

Re : VBA MsgBox si vide plusieurs text BOX

Re,

J'ai le meme code pour les Text Box de 7 a 14 c'est Possible avec l'option _Change() ?

non, là le principe est différent... il faudrait passer par un module de classe... tu trouveras de nombreux exemples sur le forum....

 

[Bens7]

Re : VBA MsgBox si vide plusieurs text BOX

Re,


non, là le principe est différent... il faudrait passer par un module de classe... tu trouveras de nombreux exemples sur le forum....

Ha bon .... tu pourrais juste cette fois si me mettre le code je comprend mieux avec l'exemple .... pleasssseeeeee
PS:depuis ce matin chui sur du VBA j'en peut plus ....

 

[Pierrot93]

Re : VBA MsgBox si vide plusieurs text BOX

Re,

code un peu plus compliqué, besoin d'un module de classe... mais fais une recherche sur le forum....

 

[Bens7]

Re : VBA MsgBox si vide plusieurs text BOX

Bonjour Pierrot desole mais j'ai tester le code ce matin ya un probleme :

Private Sub CommandButton1_Click()

'si TEXT BOX 16 a 26 VIDE = message box
Dim i As Byte
 For i = 16 To 26
     If Me.Controls("TextBox" & i) = "" Then MsgBox "IL MANQUE UNE COORDONEE DE L'ENTREPRISE" & vbNewLine & "SI VIDE METTRE UN TIRRET"
Next i
Exit Sub

'MET LES VALEURS DANS LA LIGNE
[S2] = TextBox27.Value 'DATE
[W4] = TextBox15.Value 'DIFFUSIONS
[B2] = TextBox16.Value 'SOCIETE
End Sub

Le probleme est que si les Text Box 16 a 26 sont bien remplie bah le macro ne continue pas la procedure il se passe rien

 

[Pierrot93]

Re : VBA MsgBox si vide plusieurs text BOX

Bonjour,

Le probleme est que si les Text Box 16 a 26 sont bien remplie bah le macro ne continue pas la procedure il se passe rien

bah normal... tu as un "exit sub"... donc la procédure s'arrête.. suprime cette instruction....

bon après midi
@+

 

[Bens7]

Re : VBA MsgBox si vide plusieurs text BOX

oui mais si je suprime l'instruction une fois que je clik OK sur la Message Box il continue .... je voudrais kil arette pour forcer le remplissage si ya une case vide et si tout est bien remplie qu'il continue normal

 

[Pierrot93]

Re : VBA MsgBox si vide plusieurs text BOX

Re,

place le "exit sub" dans le "if", si la condition est vérifiée...

For i = 16 To 26
     If Me.Controls("TextBox" & i) = "" Then MsgBox "IL MANQUE UNE COORDONEE DE L'ENTREPRISE" _
        & vbNewLine & "SI VIDE METTRE UN TIRRET": Exit Sub
Next i

 

[Bens7]

Re : VBA MsgBox si vide plusieurs text BOX

Ok ca marche mais un question dans ce cas la a quoi sert le Next i a la fin vu que la j;ai que une seul MsgBox u'i apparait ( et c'est mieux d'ailleur)

 

[Pierrot93]

Re : VBA MsgBox si vide plusieurs text BOX

Re,

Ok ca marche mais un question dans ce cas la a quoi sert le Next i a la fin vu que la j;ai que une seul MsgBox u'i apparait ( et c'est mieux d'ailleur)

fait partie intégrante de la boucle, permet de passer à l'élément suivant.... sans le "next"... pas de boucle "for"....