masquer des colonnes avec OptionButton

[paul87]

Bonjour à tous, Bonjour le Forum
dans une feuille .xls j'aimerais pouvoir
masquer certaines colonnes (par exemple 3, 5 et 7) lorsque l'optionbutton1 est coché.
et masquer (par exemple 2,4 et 6) lorsque l'optionbutton est coché...

quel code vba dois-je utiliser..?
Merci par avance
Paul

 

[Fo_rum]

Re : masquer des colonnes avec OptionButton

Bonjour,

pour des boutons dépendants,

Dim n As Byte
Private Sub OptionButton1_Click()
    For n = 0 To 2
        Cells(1, Array(3, 5, 7)(n)).EntireColumn.Hidden = OptionButton1
        Cells(1, Array(2, 4, 6)(n)).EntireColumn.Hidden = OptionButton2
    Next
End Sub

Private Sub OptionButton2_Click()
    For n = 0 To 2
        Cells(1, Array(3, 5, 7)(n)).EntireColumn.Hidden = OptionButton2
        Cells(1, Array(2, 4, 6)(n)).EntireColumn.Hidden = OptionButton1
    Next
End Sub

pour des boutons indépendants,

Dim n As Byte
Private Sub OptionButton1_Click()
    For n = 0 To 2
        Cells(1, Array(3, 5, 7)(n)).EntireColumn.Hidden = OptionButton1
    Next
End Sub

Private Sub OptionButton2_Click()
    For n = 0 To 2
        Cells(1, Array(2, 4, 6)(n)).EntireColumn.Hidden = OptionButton2
    Next
End Sub

Remarque : les numéros de colonne peuvent changer sans problème.

 

[tototiti2008]

Re : masquer des colonnes avec OptionButton

Bonjour à tous,

Juste pour jouer avec 😉
Merci CC pour l'idée du Change 🙂

Private Sub OptionButton1_Change()
Dim i As Long
    For i = 2 To 7
        Columns(i).Hidden = ActiveSheet.OLEObjects("OptionButton" & ((i - 1) Mod 2) + 1).Object.Value
    Next i
End Sub

 

[paul87]

Re : masquer des colonnes avec OptionButton

Bonjour à tous
Désolé pour le retard de réponse...quelques jours de vacances ne font pas de mal..!!!
Grande merci à vous tous..
C'est parfait! !!!