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
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 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
Comment puis je mettre tout cela dans mon toggle button?
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
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
Partager