Macro Modifier texte d'un bouton selon son état

Question

Bonjour à tous,

Voila mon problème j'ai fait une petite macro qui me permet de masquer ou d'afficher des lignes et cela en cliquant sur un bouton.
Actuellement le texte dans le bouton est "+". Je voudrais que lorsque les lignes sont affichées le texte du bouton soit "-" et lorsqu'elles sont masquées le texte soit "+" .

Mon programme pour le moment :


Sub bouton()


With Range("4:5")
 If .EntireRow.Hidden = False Then
 .EntireRow.Hidden = True
 Else
 .EntireRow.Hidden = False
 End If
End With
End Sub

Si quelqu'un peut m'aider SVP.

Merci d'avance.

f894009 · Answer

Bonjour,

Sub bouton()
    Dim Obj As Object
    'adaptez le nom du bouton
    Set Obj = ActiveSheet.Shapes("Bouton 1").OLEFormat.Object
    With Range("4:5")
        If .EntireRow.Hidden = False Then
            .EntireRow.Hidden = True
            Obj.Text = "+"
        Else
            .EntireRow.Hidden = False
            Obj.Text = "-"
        End If
    End With
End Sub

Macro Modifier texte d'un bouton selon son état

1 réponse

Discussions similaires

Newsletters