Tester plusieur textbox vide
Fermé
Reptilon
-
6 août 2014 à 14:03
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 7 août 2014 à 10:36
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 7 août 2014 à 10:36
A voir également:
- Tester plusieur textbox vide
- Flash drive tester - Télécharger - Divers Utilitaires
- Tester son pc - Guide
- Supprimer page word vide - Guide
- Tester composant pc - Guide
- Coeur vide - Forum Facebook
7 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
6 août 2014 à 14:42
6 août 2014 à 14:42
Bonjour,
Ou sont tes textbox? Feuille? Userform?
De quel type formulaire? Activex?
Qu'est ce qu'un pushbutton?
Ou sont tes textbox? Feuille? Userform?
De quel type formulaire? Activex?
Qu'est ce qu'un pushbutton?
Les textbox sont dans un Userform, et le pushbutton je voulais dire : commandButton pardon ^^
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
Modifié par pijaku le 7/08/2014 à 09:40
Modifié par pijaku le 7/08/2014 à 09:40
Bonjour,
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....
EDIT : pardon j'ai mal lu la question...
Ma réponse dans 5 minutes...
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...
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
7 août 2014 à 09:44
7 août 2014 à 09:44
Re-
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.
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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()"
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()"
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
7 août 2014 à 10:19
7 août 2014 à 10:19
Voir l'aide Excel pour Option Explicit...
Tu peux, au choix :
- supprimer la ligne Option Explicit
- Placer cette ligne tout en haut de ton module...
Tu peux, au choix :
- supprimer la ligne Option Explicit
- Placer cette ligne tout en haut de ton module...
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
7 août 2014 à 10:26
7 août 2014 à 10:26
Que 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
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
7 août 2014 à 10:36
7 août 2014 à 10:36
Je colle le code dans userform ?
oui.
oui.