XL 2016 VBA- masquer des colonnes avec une condition

MONTREAL2020

XLDnaute Nouveau
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 <> ""
 

MONTREAL2020

XLDnaute Nouveau
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.
 

Discussions similaires

Haut Bas