Autres Apparition bouton

[Panda79360]

ReBonjour,

j'"ai trouvé la réponse à mon précédent post,

Je bloque sur un truc sans doute tout simple pour finaliser mon fichier,

Cf explication dans fichier joint,

Merci

 

[TooFatBoy]

Bonjour,

Si "X" dans case A1 alors "Bouton 1" S'affiche sachant que la donnée de A1 résulte d'une formule,

Si rien dans A1, alors "Bouton1" disparaît

Une proposition de macro (pas d'affichage du bouton si rien dans la cellule correspondante, sinon affichage du bouton) :

Private Sub Worksheet_Change(ByVal Target As Range)
'
    If Intersect(Target, Range("A2:D2")) Is Nothing Then Exit Sub

    For i = 1 To 4
        ActiveSheet.Shapes.Range(Array("Button " & i)).Visible = (Cells(2, i) <> "")
    Next i

End Sub

 

[Panda79360]

Bonjour,

Merci beaucoup