checkbox et bouton visible

[paul87]

bonjour à tous, Bonjour le Forum
Dans une feuille j'ai insére un CommandButton1 auquel j'ai attribué le parametre visible=faux dans ses propriétes.
je souhaiterais que ce bouton devienne visible si une Checkbox1 est cochée.

De plus comment faire pour que ma checkbox soit toujours décochée à l'ouverture de ma feuille..?
merci par avance

 

[Cousinhub]

Re : checkbox et bouton visible

Bonjour,
dans le code de la feuille 1 :

Private Sub CheckBox1_Click()
Me.CommandButton1.Visible = IIf(Me.CheckBox1, True, False)
End Sub

Private Sub Worksheet_Activate()
Me.CheckBox1.Value = False
End Sub

et dans le code du this workbook :

Private Sub Workbook_Open()
Sheets("Feuil1").CheckBox1.Value = False
End Sub

 

[paul87]

Re : checkbox et bouton visible

Bonsoir bhbh et bonsoir le Forum
Encore merci à toi...ça fonctionne.
j'ai encore besoin d'une aide stp..
dans feuille, j'ai plusieurs commandbutton,
et j'en ai 1 autre qui ouvre un UF avec

Private Sub CommandButton7_Click()
UserForm1.Show
End Sub

tout betement
comment faire pour selon la reponse oui ou non dans le UF masquer un des deux boutons ..?
j'ai joint un exemple parceque je ne sais pas si c'est tres clair...😱
merci par avance

 

[Cousinhub]

Re : checkbox et bouton visible

Re-,
dans le code de ton usf :

Private Sub CommandButton1_Click()
With Sheets("Feuil1")
    .CommandButton2.Visible = True
    .CommandButton3.Visible = False
End With
Unload Me
End Sub

Private Sub CommandButton2_Click()
With Sheets("Feuil1")
    .CommandButton2.Visible = False
    .CommandButton3.Visible = True
End With
Unload Me
End Sub

 

[paul87]

Re : checkbox et bouton visible

Encore et encore Merci..!!!!
ce coup ci c'est au poil!!!
juste comment faire, cela change les proriétés de visible ou non visibles des commandbutton sur la feuille,
à la réouverture du classeur,
les boutons sont à nouveaux visibles....alors que je voudrais qu'ils soient cachés...
Merci..

 

[Cousinhub]

Re : checkbox et bouton visible

RE-,
en analysant bien tous les codes fournis, tu aurais pu voir : 😉

Private Sub Workbook_Open()
With Sheets("Feuil1")
    .CommandButton2.Visible = False
    .CommandButton3.Visible = False
End With
End Sub

 

[paul87]

Re : checkbox et bouton visible

oups...Mais je l'avais bien vu.....et pas mis au bon endroit...
merci 10000fois..
a bientôt