Discussion :

[andrewm]

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 :

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

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 :

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

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

[Theze]

Bonjour,

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

Code :

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

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

[patricktoulon]

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 :

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

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 :

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

1
2
3
Sub masquer()
masque True
End Sub

Code :

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

1
2
3
Sub afficher()
masque False
End Sub

instantané!!!

[Invité]

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).

[andrewm]

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

[Invité]

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

[patricktoulon]

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

[Invité]

Salut Patrick,

J'ai bien noté ta solution.

Ps : Bonjour à Theze.

[andrewm]

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...).

[Invité]

Merci pour votre retour et bravo Theze.

[patricktoulon]

re
a voir avec les timer

Code :

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

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 :

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

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

[unparia]

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 :

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

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