OVH Cloud OVH Cloud

Automatisation masquage colonnes

2 réponses
Avatar
christian
Bonjour =E0 tous
Sur un tableau mensuel, je souhaiterais pouvoir ex=E9cuter=20
d'une mani=E8re automatique, le masquage des colonnes se=20
rapportant aux samedis et dimanches.
Manuellement, je n'ai pas de probl=E8me, avec la MFC=20
joursem (a1 ; 2)>5 m'indiquant les colonnes =E0 masquer,=20
mais alors, pour l'automatisation..... une autre paire de=20
manches.
Depuis hier soir, j'essaye avec l'enregistreur de macro,=20
je ne sors rien de concret.
Si vous aviez une solution =E0 me proposer, je vous en=20
serais reconnaissant.
Merci d'avance
Christian

2 réponses

Avatar
ru-th
Salut Christian

Sub test()
For i = Range("iv1").End(xlToLeft).Column To 1 Step -1
If Weekday(Cells(1, i), 2) > 5 Then Columns(i).Hidden = True
Next
End Sub

a+
rural thierry

"christian" a écrit dans le message de news:
0a0901c38e23$c2c1b4a0$
Bonjour à tous
Sur un tableau mensuel, je souhaiterais pouvoir exécuter
d'une manière automatique, le masquage des colonnes se
rapportant aux samedis et dimanches.
Manuellement, je n'ai pas de problème, avec la MFC
joursem (a1 ; 2)>5 m'indiquant les colonnes à masquer,
mais alors, pour l'automatisation..... une autre paire de
manches.
Depuis hier soir, j'essaye avec l'enregistreur de macro,
je ne sors rien de concret.
Si vous aviez une solution à me proposer, je vous en
serais reconnaissant.
Merci d'avance
Christian
Avatar
christian
Merci Thierry

-----Message d'origine-----
Salut Christian

Sub test()
For i = Range("iv1").End(xlToLeft).Column To 1 Step -1
If Weekday(Cells(1, i), 2) > 5 Then Columns(i).Hidden =
True

Next
End Sub

a+
rural thierry

"christian" a écrit dans le message
de news:

0a0901c38e23$c2c1b4a0$
Bonjour à tous
Sur un tableau mensuel, je souhaiterais pouvoir exécuter
d'une manière automatique, le masquage des colonnes se
rapportant aux samedis et dimanches.
Manuellement, je n'ai pas de problème, avec la MFC
joursem (a1 ; 2)>5 m'indiquant les colonnes à masquer,
mais alors, pour l'automatisation..... une autre paire de
manches.
Depuis hier soir, j'essaye avec l'enregistreur de macro,
je ne sors rien de concret.
Si vous aviez une solution à me proposer, je vous en
serais reconnaissant.
Merci d'avance
Christian


.