Macro Modifier texte d'un bouton selon son état

Fermé

Yayadu68 - 16 janv. 2015 à 14:06
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 16 janv. 2015 à 15:03

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:

Macro Modifier texte d'un bouton selon son état
Comment modifier un pdf - Guide
Modifier liste déroulante excel - Guide
Modifier dns - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
16 janv. 2015 à 15:03

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

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

copie de texte

Bouton ON OFF, O ou I ?

Discussions similaires

Newsletters