ToggleButton

Robert

XLDnaute Barbatruc

Repose en paix

• 9 Avril 2019

• #2

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 9 Avril 2019

• #3

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:

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 9 Avril 2019

• #4

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 10 Avril 2019

• #5

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)

 

Pièces jointes

• Palette_couleurs_macro_en_clair.xls

  93.5 KB · Affichages: 4

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 10 Avril 2019

• #6

Bonjour Merci à tous

 

Vote positif 0 Vote négatif