Afficher, masquer commandbutton

[Marc_du_78]

Bonjour aux experts que vous êtes,

Je tente d'écrire un code (ci-dessous), mais il ne fonctionne pas.

Private Sub CmdBtn_Change(ByVal Target As Range)
If Cells(12, 9).value = 1 Then
CmdBtnAjouter.Visible = False
CmdBtnValider.Visible = True
Else
CmdBtnAjouter.Visible = True
CmdBtnValider.Visible = False
End If
End Sub

Je vous remercie de bien vouloir me corriger sur ce que je fais de travers.

 

[Pierrot93]

Re : Afficher, masquer commandbutton

Bonjour Marc

Peut être dans le nom de tes boutons :

tu mets :

Private Sub CmdBtn_Change(ByVal Target As Range)
If Cells(12, 9).value = 1 Then
CmdBtnAjouter.Visible = False
CmdBtnValider.Visible = True

au lieu de :

Private Sub [COLOR="Red"][B]CmdBtnAjouter[/B][/COLOR]_[COLOR="red"][B]Click[/B][/COLOR]()
If Cells(12, 9).value = 1 Then
CmdBtnAjouter.Visible = False
CmdBtnValider.Visible = True

Bonne journée
@+