Discussion :

[moulinois03000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tototiti2008]

Bonjour,

Pour commencer une remarque sur ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

[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 !