Contrôle Blocant - case à cocher

[Antho35]

Bonjour,

Sur le formulaire "traitement" figure à une case à cocher. Si cette case à cocher, n'est pas cohcer, l'utilisateur ne peut pas, valider ça demande.

En quelque sorte le bouton ne doit apparaitre que lorque la case et cocher.

Merci pour votre aide.

 

[Davidc57]

Re : Contrôle Blocant - case à cocher

Salut,

Je n'ai pas regarder ton fichier mais tu dois utiliser les propriétés des objets.

Exemple :

Private Sub CheckBox1_Change()

If CheckBox1.Value = True Then
CommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If

End Sub

Il te faut bien sûr initialiser la propriété .Visible du CommandButton1 à False

A+
David

PS : Quelqu'un peut il me rappeler comment on indique qu'un texte doit avoir le format 'Code' sur ce forum ?

 

[Antho35]

Re : Contrôle Blocant - case à cocher

Bonjour David, Bonjour Le forum,

Merci pour ta réponse.

ça marche.

 

[GI_tang]

Re : Contrôle Blocant - case à cocher

Salut, je ferai :
ajout dans

Private Sub UserForm_Initialize()
Me.CheckBox1.Value = False
Me.CommandButton3.Enabled = False

et

Private Sub CheckBox1_Click()
With Me
   If Not .CheckBox1.Value = True Then
        .CommandButton3.Enabled = False
   Else
        .CommandButton3.Enabled = True
    End If
End With
End Sub

et le tour est joué, le enabled est plus sympa que le visibilité

 

[Pierrot93]

Re : Contrôle Blocant - case à cocher

Bonjour,

une autre solution à utiliser dans le module de l'usf :

Private Sub CheckBox1_Click()
CommandButton1.Visible = CheckBox1
End Sub

Private Sub UserForm_Initialize()
CommandButton1.Visible = CheckBox1
End Sub

nom des objets à adapter...

bonne journée
@+