Bonsoir,

Je suis entrain de faire une petite macro en Exel. J'ai mis un Toggle button. Je voudrais donc que quand on appuie sur le bouton une certaine action se passe et quand on reclic sur le bouton l'action en question disparait. Pratiquement je voudrais que lorsqu'on appuie sur le bouton une phrase apparait et lorsque que l'on reclic le texte disparait.

Exemple:

quand on clic l'action suivante doit se réalise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
ActiveSheet.Shapes("Text Box 1").Select
    Selection.Characters.Text = _
        "Je m'appelle Pierre"
    With Selection.Characters(Start:=1, Length:=144).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = True
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("J20").Select
Quand on reclic sur le bouton l'action suivante devrait avoir lieu:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 ActiveSheet.Shapes("Text Box 1").Select
    Selection.Characters.Text = _
        "Je m'appelle"
    With Selection.Characters(Start:=1, Length:=113).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = True
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("J20").Select
Comment puis je mettre tout cela dans mon toggle button?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub ToggleButton1_Click()
 
End Sub

Merci pour votre aide


Micka