Macro Modifier texte d'un bouton selon son état

Yayadu68 -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
1

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?
joe! -
fernando-_ytb -

18 réponses
Quel est la touche shift sur le clavier
paoade -
PRIPRI -

8 réponses
Bouton ON OFF, O ou I ?
Stargirlfr -
kaparzo23 -

12 réponses