Discussion :

[micknic]

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

[SfJ5Rpw8]

tu les trouve où les toggle boutons ? ...

sur un bouton tu peu faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
  If CommandButton1.Caption = "Je m'appelle" Then
        CommandButton1.Caption = "Je m'appelle Pierre"
    Else
        CommandButton1.Caption = "Je m'appelle"
    End If
End Sub

[zazaraignée]

Salut

tu les trouve où les toggle boutons ?

C'est dans les contrôles standards pour les UserForm dans Excel.

pour micknic: un petit bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ToggleButton1_Click()
    If ToggleButton1.Value Then
        'Ton code pour un clic
      Else
        'ton code pour un reclic
    End If
End Sub

[SfJ5Rpw8]

Oui j'avais .... pa vu hier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub ToggleButton1_Click()
  If ToggleButton1 Then
    ToggleButton1.Caption = "Je m'appelle"
    Else
    ToggleButton1.Caption = "Je m'appelle Pierre"
    End If
End Sub

[micknic]

Hello,


Cela fonctionne très bien.


Merci à vous

[zazaraignée]

Salut

N'oublies pas de cliquer sur le bouton en bas à gauche de la page.