Checkbox afficher ou masquer colonnes non contiguës

Bonsoir, je souhaite afficher ou masquer des colonnes non contiguës à l'aide d'une checkbox. J'ai réussi à le faire pour des colonnes adjacentes (dans l'exemple D:E) mais je n'ai pas trouvé la solution pour que le code [b]permette de le faire sur des colonnes non contiguës (ex. G et I:K). J'ai voulu utiliser :

Range ("G:G, J:K").select mais la macro tombe en erreur.

D'avance merci pour votre éclairage!

Bonjour,

Sub AFFICHER_COMMENTAIRES_TEST()
    Range("G1,I1:K1").EntireColumn.Hidden = Feuil1.Shapes("Check Box 1").OLEFormat.Object.Value = xlOn
End Sub

eric

Bonsoir le forum

Bonsoir ALE37

Essaies avec ceci :

Sub AFFICHER_COMMENTAIRES_TEST()
' Affiche ou masque la colonne de commentaires
If Feuil1.Shapes("Check Box 1").OLEFormat.Object = xlOff Then
    Range("D:E,G:G,I:K").Select
          Selection.EntireColumn.Hidden = False
End If
If Feuil1.Shapes("Check Box 1").OLEFormat.Object = xlOn Then
    Range("D:E,G:G,I:K").Select
            Selection.EntireColumn.Hidden = True
End If
End Sub

Re le fil,

Quand 2 Eric donnent une réponse (quoiqu'il faille tenir tenir compte de celle d'Eric .... qui évite les .select).

Bonsoir à toi eriiic

Merci à tous les deux ! Les 2 solutions fonctionnent à merveille.

et presque synchros en plus