CommandButton visible sous condition

Bonjour,

je souhaiterais rendre visible un CommandButton en fonction de l'etat d'une cellule

CommandButoon visible su A3=1

Invisible si A3=2

merci d'avance

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Feuil1").CommandButton1.Visible = [A3] = 1
End Sub

eric

Bonjour Eric

effectivement cela fonctionne, mais j'ai peut etre mal poser ma question car j'ai 3 commandbtutton

2 dépendent de la valeur de G8 (si G8=1 commandbutton 1 visible et commandbutton2 invisible si G8=2 commandbutton1 invisible et commandbutton 2 visible)

1 de la valeur A3 (si A3=1 commandbutton3 visible)

je n'arrive pas à combinner avec ton code plus haut.

merci

Salut Emix !

Tu as essayé avec des conditions type

If Range("A3").Value = 1 Then
Sheets("TaFeuille").CommandButton3.Visible=True

?

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
    Case "$A$3"
        Sheets("Feuil1").CommandButton3.Visible = Target = 1
    Case "$G$8"
        Sheets("Feuil1").CommandButton1.Visible = Target = 1
        Sheets("Feuil1").CommandButton2.Visible = Target = 2
    End Select
End Sub

eric

Bonjour et merci de ton aide

le code ci dessus ne fonctionne pas

j'ai modifier la logique par des formules intégrée dans la feuille pour resumer :

Si H8=2 CommandButton2 visible (le 2 autres invisibles)

Si H8=3 CommandButton1 visible (le 2 autres invisibles)

Si H8=4 CommandButton3 visible (le 2 autres invisibles)

j'ai écrit ceci : (sur les bases que tu m'as données)

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address

Case "H8"

Sheets("DEVIS").CommandButton2.Visible = Target = 2

Sheets("DEVIS").CommandButton1.Visible = Target = 3

Sheets("DEVIS").CommandButton3.Visible = Target = 4

End Select

End Sub

mais hélas ça ne marche pas non plus ??? et je ne comprends pas pourquoi !

je crois que j'y suis enfin....

voila ce que j'ai ecris,

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("DEVIS").CommandButton1.Visible = [H8] = 3

Sheets("DEVIS").CommandButton2.Visible = [H8] = 2

Sheets("DEVIS").CommandButton3.Visible = [H8] = 4

End Sub

et micale, ça fonctionne.

merci de ton aide, tu m'a mis sur la bonne voie

Tu appelles ça mettre sur la voie ?

Je t'ai donné la solution qui répondait à ta question :

2 dépendent de la valeur de G8... et 1 de la valeur A3

Tu n'as jamais demandé les 3 qui dépendent de H8.

Et n'enlève pas les lignes que tu ne comprends pas. Remet un test sur l'adresse de Target, inutile de faire 3 actions si c'est une autre cellule que H8 qui est modifiée, c'est plus propre.

eric

excuse moi je ne voulais pas te froisser!

ton aide m'a été précieuse, et ta solution fonctionne. c'est vrai!

je n'ai pas ton niveau en la matière, et je me fais petit à petit au vba, donc je ne maitrise pas toujour ce que je fais.

j'apprends !

donc un grand merci pour ma quette de solutions en attendant de savoir.