Microsoft 365 Boutton bascule cache et ouvre colonne

  • Initiateur de la discussion Initiateur de la discussion Scorpio
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Scorpio

XLDnaute Impliqué
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.
 

Pièces jointes

Bonjour Scorpio,
Essayez cette petite variation de code :
VB:
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
 
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
VB:
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
480
  • Question Question
Microsoft 365 Code listbox
Réponses
4
Affichages
569
Réponses
22
Affichages
3 K
Retour