Autres Apparition bouton

Panda79360 · 10 Novembre 2023

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 · 10 Novembre 2023

Bonjour,

Panda79360 à dit:
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) :

VB:

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

TooFatBoy · 10 Novembre 2023

Bonjour,

Panda79360 à dit:
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) :

VB:

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 · 12 Novembre 2023

Bonjour,

Merci beaucoup

Autres Apparition bouton

Panda79360

XLDnaute Nouveau

Pièces jointes

TooFatBoy

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Panda79360

XLDnaute Nouveau

Discussions similaires