ToggleButton

MASSJIPE

XLDnaute Impliqué
Bonjour le Forum
j'ai un classeur avec plusieurs userforms je voudrais mettre un ToggleButton avec l'action suivante au premier clic feuille B et il affiche le nom de la feuille Ex B au deuxième clic je reviens sur la feuille A et affiche A
Mais je ne sais pas faire malgré des recherches sur google
D'avance merci
 

Pièces jointes

  • TEST.xlsm
    20.2 KB · Affichages: 3

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Massjipe, bonjour le forum,

Essaie comme ça (à placer dans le composant UserForm1) :

VB:
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then Sheets("B").Select Else Sheets("A").Select
End Sub
 

MASSJIPE

XLDnaute Impliqué
VB:
Private Sub ToggleButton1_Click()
    If ToggleButton1.Value Then
    ToggleButton1.BackColor = &HFF&
        Sheets("BDD").Select
        ToggleButton1.Caption = "BDD"
      Else
        Sheets("Tableau de Bord").Select
        ToggleButton1.Caption = "Tableau de Bord"
        ToggleButton1.BackColor = &HFF00&
    End If
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 925
Membres
101 841
dernier inscrit
ferid87