Tester plusieur textbox vide
Bonjour,
Je suis entrain de faire une macro sous excel en vba, et je n'arrive pas à faire une règle : j'ai plusieurs textbox (de 1 a 4) et un pushbutton.
J'aimerai que le pushbutton apparaît que si les 4 textbox soit remplit.
Quelqu'un pourrait m'aider svp ?
Merci
Je suis entrain de faire une macro sous excel en vba, et je n'arrive pas à faire une règle : j'ai plusieurs textbox (de 1 a 4) et un pushbutton.
J'aimerai que le pushbutton apparaît que si les 4 textbox soit remplit.
Quelqu'un pourrait m'aider svp ?
Merci
7 réponses
-
ModérateurBonjour,
Ou sont tes textbox? Feuille? Userform?
De quel type formulaire? Activex?
Qu'est ce qu'un pushbutton?
-
Personne ne peut m'aider ?? :(
-
Les textbox sont dans un Userform, et le pushbutton je voulais dire : commandButton pardon ^^
-
ModérateurBonjour,
Alors c'est très simple. Insère ce code dans le CommandButton :
ADAPTER : les noms des contrôles CommadButton1 ou 10???
TextBox de 1 à 4 ou autre....
Private Sub CommandButton1_Click()
Dim i As Integer, Cptr As Integer
Cptr = 0
For i = 1 To 4
If Me.Controls("TextBox" & i).Value <> "" Then Cptr = Cptr + 1
Next i
If Cptr < 4 Then
MsgBox "Les champs de 1 à 4 sont obligatoires!", vbCritical
Else
'place ici le code au cas ou tous les textbox sont remplis
End If
End Sub
EDIT : pardon j'ai mal lu la question...
Ma réponse dans 5 minutes...
-
-
ModérateurRe-
Excuse moi, j'ai répondu trop vite en mélangeant plusieurs sujets...
Voici le code à ajouter dans le module de l'UserForm.
Attention, cela ne fonctionnera pas si tu utilises déjà les événements Exit de tes TextBox.Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer, Cptr As Integer
Cptr = 0
For i = 1 To 4
If Me.Controls("TextBox" & i).Value <> "" Then Cptr = Cptr + 1
Next i
If Cptr = 4 Then CommandButton1.Visible = True Else CommandButton1.Visible = False
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer, Cptr As Integer
Cptr = 0
For i = 1 To 4
If Me.Controls("TextBox" & i).Value <> "" Then Cptr = Cptr + 1
Next i
If Cptr = 4 Then CommandButton1.Visible = True Else CommandButton1.Visible = False
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer, Cptr As Integer
Cptr = 0
For i = 1 To 4
If Me.Controls("TextBox" & i).Value <> "" Then Cptr = Cptr + 1
Next i
If Cptr = 4 Then CommandButton1.Visible = True Else CommandButton1.Visible = False
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer, Cptr As Integer
Cptr = 0
For i = 1 To 4
If Me.Controls("TextBox" & i).Value <> "" Then Cptr = Cptr + 1
Next i
If Cptr = 4 Then CommandButton1.Visible = True Else CommandButton1.Visible = False
End Sub
-
Merci beaucoup ! Je teste ça et je reviens te voir
-
J'ai coller ton code mais j'ai toujours le commandButton invisible :(
Je sens que c'est un code pas compliqué mais faut le trouver mdr -
J'ai une erreur de compilation en fait :
Il me sélectionne "Option Explicit" en bleu
Et il me sélectionne en jaune la toute première phrase dans le module "Sub projet()"-
-
-
ModérateurQue vient donc faire ta Sub Projet ici?????
Le code que je t'ai donné doit être placé dans le module de l'userform tel qu'il est donné ici.
Vois ce fichier exemple :
https://www.cjoint.com/?DHhkAuc3fJl -
-
-
