XL 2016 VBA- masquer des colonnes avec une condition

[MONTREAL2020]

Bonjour,

J'ai trouver ce code VBA qui à l'air de bien fonctionner, le seul bémol c'est qu'il prend trop de temps et met la feuille Excel en état épileptique .

Vous serez sympa de m'y aider pour ça.

Merci


Sub masquerWeekend()
For Each cell In ActiveSheet.Range("h1:mm1"):
If cell.Value < Range("g1") Then
Columns(cell.Column).Select
Selection.EntireColumn.Hidden = True
End If
Next cell
End Sub

'Or cell.Value <> ""

 

[natorp]

Bonjour Montreal

Sans fichier d'exemple, c'est toujours difficile de répondre
Vous avez réellement besoin de tester toutes les cellules de H à MM ?

For Each cell In ActiveSheet.Range("h1:mm1"):

Cordialement, Gérard

 

[MONTREAL2020]

Salut Gérard,

Au fait c'est un tableau de plusieurs colonnes de prix hebdomadaire. J'en rajoute une chaque semaine.

Alors je voulais une macro qui me masque les colonnes dont la cellule (entête) contient une date < Inférieur à une cellule figée (ajourdhui() ) et garder visible que la colonne de la semaine.
la macro que je vous ai communiqué est non seulement lourde mais va aussi cacher les colonnes vide après ma dernière colonne.

Je remercie par avavnce.