Microsoft 365 Boutton bascule cache et ouvre colonne

[Scorpio]

Bonjour à tous,
Je suis pas un champion en VBA, mais j'ai fait ce petit bout de code.
En fait, je cherche a ouvrir ou cacher la colonne A et B, et donc le bouton se colore de vert ou rouge.
J'arrive a cacher la colonne A et B, mais pas l'ouvrir.
Pourriez-vous, s'il vous plaît me donner un coup de pouce, merci et a+++
Scorpio.

 

[sylvanu]

Bonjour Scorpio,
Essayez cette petite variation de code :

Private Sub ToggleButton1_Click()
With ToggleButton1
        If .Value = True Then
            .BackColor = RGB(0, 255, 0) 'Vert
            .Caption = "Visible"
            Columns("A:B").EntireColumn.Hidden = True
        ElseIf .Value = False Then
            .BackColor = RGB(255, 0, 0) 'Rouge
            .Caption = "Cacher"
            Columns("A:B").EntireColumn.Hidden = False
        End If
    End With
    Range("A1").Select
End Sub

 

[Scorpio]

Salut sylvanu,
C'est super, je te remercie, c'est ce que je trouvais pas.
A une autre fois, et merci beaucoup.
Scorpio.

 

[Jacky67]

Bonjour à tous,
Je suis pas un champion en VBA, mais j'ai fait ce petit bout de code.
En fait, je cherche a ouvrir ou cacher la colonne A et B, et donc le bouton se colore de vert ou rouge.
J'arrive a cacher la colonne A et B, mais pas l'ouvrir.
Pourriez-vous, s'il vous plaît me donner un coup de pouce, merci et a+++
Scorpio.

Bonjour,
Le code de l'userform pourrait ressembler à ceci

Private Sub ToggleButton1_Click()
    With ToggleButton1
        Feuil1.Columns("A:B").Hidden = .Value
        .BackColor = IIf(.Value, RGB(0, 255, 0), RGB(255, 0, 0))  'Vert/Rouge
        .Caption = IIf(.Value, "Visible", "Cacher")    'Visible//Cacher/
    End With
    Feuil1.Range("A1").Select
End Sub

Private Sub UserForm_Activate()
    ToggleButton1 = True
End Sub

 

[Scorpio]

Salut Jacky67,
Merci de ton aide, je vais utiliser aussi ton code, merci beaucoup, a++++
Scorpio.