[VBA-E] Toggle button: programmation des actions

Version imprimable

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:

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:

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:

1
2
3
4
 
Private Sub ToggleButton1_Click()
 
End Sub

Merci pour votre aide

Micka

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

sur un bouton tu peu faire :

Code:

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

:wink: :roll:

30/10/2005, 02h12
zazaraignée
Salut

Citation:

Envoyé par bbil

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:

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

Oui j'avais .... pa vu hier 8O

Code:

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

:wink:

30/10/2005, 20h25
micknic

toggle

Hello,

Cela fonctionne très bien.

Merci à vous
30/10/2005, 20h28
zazaraignée

Salut

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