Boucle FOR dans Union de Columns

Version imprimable

Bonjour à tous,

Je cale sur un point de mon code malgré pas mal de recherches, alors je me lance pour mon premier post :

J'ai une feuille sur laquelle je peux avoir besoin de faire une "remise à zéro", càd supprimer toutes les données renseignées par l'utilisateur, en conservant toutes les mises en forme, les formules etc. Jusque là ok, aucun problème.

Par soucis de lisibilité, j'ai un certain nombre de colonnes que j'ai groupées (via le bouton "grouper" de la section "plan"), mais que l'utilisateur peut choisir d'afficher ou non, s'il en a besoin ou non : AA:AE, AM:AV, BL:BM, BQ, BS, BU, BW et DB.

Lors de la remise à zéro, je veux que ces colonnes soient masquées (comme si on appuyait sur le petit "-" de notre plan, au-dessus des titres de colonnes). J'arrive à le faire avec un ensemble de colonnes contiguës :
Code:

1 2 3 4 5 6 7 With ActiveSheet.Columns("AA:AE") If Not .Hidden Then .Hidden = True Else: .Hidden = True End If End With
Mon problème est que j'aimerais "standardiser" la chose, ou du moins la rendre plus propre, sans avoir à taper 8 fois ce morceau de code pour les 8 ensembles que j'ai nommés plus haut. J'ai essayé de définir une Union de ces colonnes, mais je ne maitrise pas cette commande et du coup ma boucle FOR ne fonctionne pas dans le code suivant :
Code:

1 2 3 4 5 6 7 8 Set plage = Union(Columns("AA:AE"), Columns("AM:AV"), Columns("BL:BM"), Columns("BQ"), Columns("BS"), Columns("BU"), Columns("BW"), Columns("DB")) For Each Columns In plage If Not .Hidden Then .Hidden = True Else: .Hidden = True End If Next
Ce code me renvoie une "Erreur de compilation: Variable requise. Impossible de l'affecter à cette expression"

Quelqu'un aurait-il une piste ?

Merci d'avance !

Moulinois

Bonjour,
Exemple d'une procédure qui affiche ou masque les colonnes de la feuille active

Code:

1
2
3
4
5
6
7
8
Function Show_Hide(Optional Flag As Boolean)
 Dim t As Variant
 Dim e As Byte
 t = Array("A:D", "AA:AE", "AM:AV", "BL:BM")
 For e = LBound(t) To UBound(t)
   Columns(t(e)).EntireColumn.Hidden = Flag
 Next
End Function

Code de la procédure appelante

Code:

1
2
3
Sub TestShow_Hide()
  Show_Hide Flag:=True ' Masque les colonnes
End Sub

et pour afficher Show_Hide

[EDIT]

Pour en faire une fonction générique

Code:

1
2
3
4
5
6
Function Show_Hide(cList As Variant, Optional Flag As Boolean)
 Dim e As Byte
 For e = LBound(cList) To UBound(cList)
   Columns(cList(e)).EntireColumn.Hidden = Flag
 Next
End Function

Procédure appelante

Code:

1
2
3
4
5
6
Sub TestShow_Hide()
  Dim t As Variant
  t = Array("A:D", "AA:AE", "AM:AV", "BL:BM")
 
  Show_Hide cList:=t , Flag:=True
End Sub

05/03/2025, 14h04
tototiti2008
Bonjour,

Pour commencer une remarque sur ce code
Code:

1 2 3 4 If Not .Hidden Then .Hidden = True Else: .Hidden = True End If
Si dans un If on fait la même chose dans le Then que dans le Else (en l'absence de Elseif), alors le If ne sert à rien

Ensuite si vous avez groupé vos colonnes avec les outils du plan (bouton Grouper onglet Données groupe Plan), il y a moyen de se placer dans un niveau du plan particulier qui masquerait toutes les colonnes groupées d'un coup, avec un code du genre

Code:

ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
05/03/2025, 15h31
moulinois03000

Oh super ! Merci pour vos réponses super rapides !

Je me range à la proposition de tototiti2008 car en effet bien que non contiguës, j'ai positionné ces groupes de colonnes sur le même niveau du plan, donc avec cette fonction showlevels que je ne connaissais pas (pourquoi je n'ai même pas pensé à passer par le plan...) il est en effet très facile d'accéder au niveau de plan qui m'intéresse, et en plus j'aime bien c'est net et ça tient en une ligne.

Philippe je garde ta réponse sous le coude qui pourra peut-être me servir plus loin...

Merci en tout cas pour votre rapidité et vos retours !