Afficher, masquer commandbutton

Marc_du_78 · 30 Novembre 2006

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 · 30 Novembre 2006

Re : Afficher, masquer commandbutton

Bonjour Marc

Peut être dans le nom de tes boutons :

tu mets :

Code:

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

au lieu de :

Code:

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
@+

Afficher, masquer commandbutton

Marc_du_78

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Afficher, masquer commandbutton

Marc_du_78

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency