Macro masquer une colonne sur deux

Bonjour à tous,

Je sais que la réponse a déjà été donnée sur ce sujet mais celles que j'ai trouvées ne me conviennent qu'en partie. En effet, j'aimerais masquer une colonne sur deux. J'ai donc fait une macro pour masquer les colonnes impaires à partir de la colonne G. Le problème c'est qu'elle vérifie les colonnes une par une et qu'il y a beaucoup de colonnes. Elle prend donc plusieurs secondes (pas grand chose mais pas super agréable pour l'utilisateur). Y aurait-il une macro qui s'exécuterait plus rapidement ? J'ai déjà essayé les deux macros suivantes qui donnent le résultat attendu mais nécessitent un certain temps.

Code:

---

1 2 3 4 5 6

Sub masquergranu2() Dim col% For col = 7 To 500 Step 2 Columns(col).Hidden = Not Columns(col).Hidden Next col End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub masquergran() Dim col As Integer ' on affiche tout   For col = 5 To 500 If col Mod 2 <> 0 Then ' si diviser par 2 il reste 0 c'est que c'est pair, pour impair il faut faire le test <> 0 Cells(1, col).EntireColumn.Hidden = True End If Next col End Sub

---

Bonjour,

Essais en gelant l'affichage, chez moi, moins d'une seconde :

Code:

---

1 2 3 4 5 6 7 8 9

Sub masquergranu2() Dim col% Application.ScreenUpdating = False For col = 7 To 500 Step 2 Columns(col).Hidden = Not Columns(col).Hidden Next col Application.ScreenUpdating = True End Sub

---

c'est normal tu masque colonne par colonne et donc declanchement a chaque tour des evenements du sheets

il te faut collectionner les colonnes dans un range avec union et masquer démasquer cet union

Code:

---

1 2 3 4 5 6 7

Sub masque(boulboul) Dim rng As Range For i = 7 To 500 Step 2 If rng Is Nothing Then Set rng = Cells(1, i) Else Set rng = Union(rng, Cells(1, i)) Next rng.EntireColumn.Hidden = boulboul End Sub

---

pour tester

Code:

---

1 2 3

Sub masquer() masque True End Sub

---

Code:

---

1 2 3

Sub afficher() masque False End Sub

---

instantané!!!;)

Citation:

---

Envoyé par andrewm

---

Bonjour,

Essayez d'utiliser les affichages personnalisés depuis le menu Affichage:

Pièce jointe 404182

Vous faites tourner vos programmes pair et impair l'un après l'autre et pour chacun d'entre eux, vous sauvegardez leur nom comme dans le vidage d'écran.
Ensuite avec l'enregistreur de macro, vous modifiez les vues pour voir le code généré.

A priori, c'est plus rapide (test sans formules).

Merci beaucoup, toutes vos solutions marchent à merveille !!!

Citation:

---

Envoyé par andrewm

---

J'imagine que la solution de Patrick doit être de loin la plus performante. Quel est votre avis ?

re
bonjour eric KERGRESSE
ben il y a que ca en fait
la tienne aurait un avantage si la plage ne devait pas changée de dimention on enregistre le fichier et on supprime le code on se servirait uniquement de application.overview
pour la mienne on pourrait mettre rng en public et mettre une condition sur nothing et faire sauter la boucle si elle a deja été efectuée avant

Citation:

---

Envoyé par patricktoulon

---

Salut Patrick,

J'ai bien noté ta solution.

Ps : Bonjour à Theze.

Toutes les solutions fonctionnaient mais c'est la solution de Theze que j'ai utilisée (en prenant un nombre de colonnes que je suis sûr de ne jamais atteindre). Plus rapide que celle de Patrick qui tournait longtemps avant de m'afficher les colonnes souhaitées. Votre solution était encore plus rapide sur la réactivité après clic Eric, mais plus longue à mettre en oeuvre (relance de la macro pour masquer les colonnes, affichage personnalisé, enregistrement de macro...).

Citation:

---

Envoyé par andrewm

---

Merci pour votre retour et bravo Theze.

re
a voir avec les timer

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub masquer_afficher() Dim rng As Range t = Timer Application.ScreenUpdating = False For i = 7 To 500 Step 2 If rng Is Nothing Then Set rng = Cells(1, i) Else Set rng = Union(rng, Cells(1, i)) Next rng.EntireColumn.Hidden = Not rng.EntireColumn.Hidden 'boulboul MsgBox "temps d'execution :" & Timer - t Application.ScreenUpdating = True End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub masquergranu2() Dim col% t = Timer Application.ScreenUpdating = False For col = 7 To 500 Step 2 Columns(col).Hidden = Not Columns(col).Hidden Next col MsgBox "temps d'execution :" & Timer - t Application.ScreenUpdating = True End Sub

---

la solution de theze moins gourmante en memoire certainement mais temps identiques

Bonjour
Toujours avoir le réflexe d'éviter (en faire l'économie) une condition If (en boucle) avec Union lorsque l'on sait établir une plage de départ -->> la procédure de patricktoulon devient alors ainsi :

Code:

---

1 2 3 4 5 6 7 8

Sub masque(boulboul) Dim rng As Range Set rng = Columns(7) For i = 9 To 500 Step 2 Set rng = Union(rng, Columns(i)) Next rng.EntireColumn.Hidden = boulboul End Sub

---