ToggleButton

MASSJIPE · 9 Avril 2019

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

Robert · 9 Avril 2019

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 · 9 Avril 2019

Bonjour Robert
Merci pour la réponse
en cherchant d'avantage j'ai ceci mais par contre je cherche un tableau a quoi correspond les couleurs du type&HFF00&

Code:

MASSJIPE · 9 Avril 2019

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

herve62 · 10 Avril 2019

J'ai un très vieux fichiers qui explique un peu , ton &Hxxxx& permet d'encadrer une valeur reconnue en hexadécimal ( base 16)
normalement le FF00 = vert fluo (#00FF00)

MASSJIPE · 10 Avril 2019

Bonjour Merci à tous

ToggleButton

MASSJIPE

XLDnaute Impliqué

Pièces jointes

Robert

XLDnaute Barbatruc

MASSJIPE

XLDnaute Impliqué

MASSJIPE

XLDnaute Impliqué

herve62

XLDnaute Barbatruc

Pièces jointes

MASSJIPE

XLDnaute Impliqué

Discussions similaires