XL 2021 Masquer des colonnes plus rapidement qu'avec Selection.EntireColumn.Hidden = True

[ESCOUGER2022]

Bonjour,
En utilisant la méthode classique "Selection.EntireColumn.Hidden = True" dans une macro pour masquer une ou plusieurs colonnes le temps d'exécution est très long, de l'ordre d'une seconde par colonne.
Sauriez-vous me dire s'il est possible de programmer cela différemment de manière à réduire ce temps ?
J'ai essayé différentes possibilités proposées sur le net telles que "Worksheets("Sheet1").Columns("C").Hidden = True"
ou utiliser la propriété "Range.Hidden = True, mais le temps d'exécution n'est pas réduit.
Merci d'avance de vos réponses

 

[Oneida]

Bonjour,
Combien de Colonnes?
Un exemple pour 7

Sub Masquer_Colonnes()
    temps = Timer
    Sheets("feuil1").Range("D:E,H:H,L:M,T:T,V:V").EntireColumn.Hidden = True
    MsgBox Format(Timer - temps, "0.000000")
End Sub
Sub Afficher_Colonnes()
    temps = Timer
    Sheets("feuil1").Range("D:E,H:H,L:M,T:T,V:V").EntireColumn.Hidden = False
    MsgBox Format(Timer - temps, "0.000000")
End Sub

 

[ESCOUGER2022]

Merci cette méthode est un peu plus rapide.
Le temps d'exécution a en effet été divisé par 2 environ.
Cela reste néanmoins assez long...mais c'est déjà çà.

 

[TooFatBoy]

Bonjour,

As-tu essayé de mettre un Application.ScreenUpdating=FALSE avant de commencer à masquer tes colonnes (et éventuellement un Application.ScreenUpdating=TRUE juste après) ?

 

[Oneida]

Bonjour,
TooFatBoy, ca roule?

ESCOUGER2022​

Vous n'avez pas remis de select?
Chez moi 0.01s, chez vous?

 

[ESCOUGER2022]

Je ne comprends pas pourquoi de devrai mettre ou non un Select et qu'est-ce que ça aurait comme effet sur le temps.

 

[TooFatBoy]

Je ne comprends pas pourquoi de devrai mettre ou non un Select et qu'est-ce que ça aurait comme effet sur le temps.

Ca prend un temps fou les .Select !

C'est à bannir. On le dit systématiquement pour les gens qui débutent et ne le savent donc pas.
Mais j'en connais un ici ( salut Arthour ) qui continue de systématiquement mettre des .select suivis de Selection. partout, partout, partout.

---

Salut Oneida ça roule.
Et toi donc ?

 

[ESCOUGER2022]

Ok j'ignorais cela.
Je l'utilise beaucoup à l'instar d'Arthour!
Mais si, par exemple ,je veux positionner le curseur sur une cellule, quelle est la solution autre que range(adresse).select
Est-ce que Activate ferait la même chose?

 

[TooFatBoy]

Je l'utilise beaucoup à l'instar d'Arthour!

Dans ce cas, il faut au moins utiliser Application.ScreenUpdating=FALSE, pour ne plus rafraîchir l'affichage pendant le travail de la macro.
Et là, tu gagnes un temps absolument incroyable. Il faut le tester pour le croire.

Mais si, par exemple ,je veux positionner le curseur sur une cellule, quelle est la solution autre que range(adresse).select
Est-ce que Activate ferait la même chose?

Pardon, mais je te répondrai par une question : pourquoi voudrais-tu faire cela ?!?

Je veux dire par-là que si le Select n'est pas absolument nécessaire, alors tu dois absolument t'en passer pour gagner du temps, et aussi de la clarté dans ton code de macro.
Par exemple pour copier une cellule vers une autre cellule, le Select est inutile.

Exemple :

Sheets("Feuil1").Select
Range("A1").Select
Selection.Copy

sera avantageusement remplacé par

Sheets("Feuil1").Range("A1").Copy

 

[ESCOUGER2022]

Simplement pour mettre le curseur sur une cellule - à la sortie d'une macro - ou le terminaliste devra poursuivre sa saisie.

 

[TooFatBoy]

Simplement pour mettre le curseur sur une cellule - à la sortie d'une macro - ou le terminaliste devra poursuivre sa saisie.

Là tu t'en fous puisque tu ne le fais qu'une seule fois, donc tu fais ton Select.

Là où c'est important c'est par exemple dans une boucle. Si, à l'intérieur de ta boucle, tu peux éviter le Select, alors tu dois éviter le Select.


Tu vois ce que je veux dire ?

 

[ESCOUGER2022]

Ok compris merci.
Je vais analyser toutes mes boucles (toutes en FOR....NEXT) et faire la chasse aux select inutiles
Merci

 

[TooFatBoy]

As-tu essayé de mettre un Application.ScreenUpdating=FALSE avant de commencer à masquer tes colonnes (et éventuellement un Application.ScreenUpdating=TRUE juste après) ?

Et donc, la réponse est ???

 

[ESCOUGER2022]

Oui j'ai fait cela.
Le hain de temps est effectif mais hélas faible.

 

[TooFatBoy]

Oui j'ai fait cela.
Le gain de temps est effectif mais hélas faible.

Ah !?! Étonnant.


Il faudrait peut-être voir ta macro.