Aide sur UserForm : commande "valider"

Dull

XLDnaute Barbatruc

• 8 Octobre 2013

• #2

Re : Aide sur UserForm : commande "valider"

Salut JMR150, le Forum

Pour les TextBox1

Private Sub TextBox1_Change()
CommandValider.Enabled = IIf(IsNull(TextBox1.Value) Or TextBox1 = "", False, True)
End Sub

Cliquez pour agrandir...

et dans l'initialize de l'USF

CommandValider.Enabled = False

Cliquez pour agrandir...

Bonne Journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Octobre 2013

• #3

Re : Aide sur UserForm : commande "valider"

Bonjour,

pas ouvert ton fichier, mais regarde ceci si cela peut t'aider :

Code:

CommandButton1.Enabled = Not TextBox1 = ""

bonne journée
@+

Edition : bonjour Dull🙂

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 8 Octobre 2013

• #4

Re : Aide sur UserForm : commande "valider"

bonjour JMR150 ,Dull🙂,Pierrot🙂

pour simplifier dans son cas on pourrait utiliser la propriéte TAG

Code:

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim z As Byte, c As Control
 z = 0
 For Each c In Controls
 If c.Tag <> "" And c <> "" Then z = z + 1
 Next
 CommandValider.Enabled = IIf(z = 12, 1, 0)
End Sub

dans propriétee TAG de chaque controle concerne j'ai mis 1 histoire de mettre quelque chose

 

Vote positif 0 Vote négatif

J

JMR150

XLDnaute Nouveau

• 8 Octobre 2013

• #5

Re : Aide sur UserForm : commande "valider"

Merci beaucoup pour vos réponses !

 

Dernière édition: 8 Octobre 2013

Vote positif 0 Vote négatif

J

JMR150

XLDnaute Nouveau

• 8 Octobre 2013

• #6

Re : Aide sur UserForm : commande "valider"

Une dernière question : Comment faire pour que cela soit valable pour toutes les textbox et ComboBox ?
Car quand je le fais pour chaque TextBox, dès qu'il y en a une qui se remplie, ça active le bouton "Valider" alors que ce que je voudrais c'est que tant que les champs ne sont pas tous remplis, ça ne s'active pas ...

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 8 Octobre 2013

• #7

Re : Aide sur UserForm : commande "valider"

re tous
un exemple avec ton fichier

c'est dans propriete de chaque contrôle concerne que j'ai mis 1 dans Tag ..... les autres restent vide

 

Pièces jointes

• BdD - Montage (1).xlsm

  31.8 KB · Affichages: 48

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Octobre 2013

• #8

Re : Aide sur UserForm : commande "valider"

Re JMR150; Salut Pierrot🙂, Laetitia🙂

Une petite dernière qui boucle sur les controls type TextBox, ComboBox, ListBox
et qui interdit la validation de l'USF tant qu'il y a des TextBox (Sauf la 7 et la 8) et/ou ComboBox vides

Code:

Dim x As Control

  For Each x In Me.Controls
    Select Case TypeName(x)
      Case "TextBox", "ComboBox", "ListBox"
        If x.Value = "" And x.Visible = True And x.Name <> "TextBox7" And x.Name <> "TextBox8" Then
           MsgBox "Veuillez saisir cette zone!"
           x.SetFocus
           Exit Sub
        End If
     End Select
   Next x

Code à placer dans le Private Sub CommandValider_Click()

Bonne Journée

 

Pièces jointes

• BdD - Montage.xlsm

  30.8 KB · Affichages: 51
• BdD - Montage.xlsm

  30.8 KB · Affichages: 47
• BdD - Montage.xlsm

  30.8 KB · Affichages: 45

Vote positif 0 Vote négatif

J

JMR150

XLDnaute Nouveau

• 8 Octobre 2013

• #9

Re : Aide sur UserForm : commande "valider"

Dull, Pierre, Laetita 🙂

Merci beaucoup pour vos réponses.
Là, ça marche nickel.

Bonne journée

 

Vote positif 0 Vote négatif