Macro pour masquer (et afficher) lignes contenant dimanche

[libellule85]

Bonjour le forum,

Je recherche une macro pour masquer (et afficher) les lignes contenant les dimanches.

Bien sûr l'emplacement de ceux-ci changent selon les mois !

Pour info : les jours apparaissent grâce à une formule (formules données par tototiti2008, que je remercie encore)

D'avance je vous remercie pour votre aide.

 

[Pierrot93]

Re : Macro pour masquer (et afficher) lignes contenant dimanche

Bonjour,

essaye ceci :

Option Explicit
Sub test()
Dim i As Long
For i = 3 To 33
    Rows(i).Hidden = Weekday(Cells(i, 1)) = 1
Next i
End Sub
Sub afficher()
Rows.Hidden = False
End Sub

bonne journée
@+

 

[libellule85]

Re : Macro pour masquer (et afficher) lignes contenant dimanche

Bonjour Pierrot93,

Merci beaucoup pour ta réponse, cela marche très bien pour le mois d'août mais quand je change de mois il y a une erreur 13 "Incompatibilité de type", cela bug sur la ligne :

Rows(i).Hidden = Weekday(Cells(i, 1)) = 1

 

[Pierrot93]

Re : Macro pour masquer (et afficher) lignes contenant dimanche

Re,

modifie comme suit :

Sub test()
Dim i As Long
For i = 3 To 33
    If IsDate(Cells(i, 1)) Then Rows(i).Hidden = Weekday(Cells(i, 1)) = 1
Next i
End Sub

 

[libellule85]

Re : Macro pour masquer (et afficher) lignes contenant dimanche

Re,

Un grand merci cela fonctionne à merveille. Une dernière petite question comment faire pour avoir Masquer et Afficher sur le même bouton ?

 

[Pierrot93]

Re : Macro pour masquer (et afficher) lignes contenant dimanche

Re,

utilise un "ToggleButton" et teste sa valeur... sinon utilise une variable booléenne "static"...

 

[libellule85]

Re : Macro pour masquer (et afficher) lignes contenant dimanche

Re,

Merci et bonne journée

 

[Pierrot93]

Re : Macro pour masquer (et afficher) lignes contenant dimanche

Re,

Avec une variable "static" :

Option Explicit
Sub test()
Static b As Boolean
Dim i As Long
If b Then Rows.Hidden = False: b = False: Exit Sub
b = True
For i = 3 To 33
    If IsDate(Cells(i, 1)) Then Rows(i).Hidden = Weekday(Cells(i, 1)) = 1
Next i
End Sub

 

[libellule85]

Re : Macro pour masquer (et afficher) lignes contenant dimanche

Re,

Vraiment un très grand merci pour ton aide, c'est vraiment sympa.
Je m'endormirais moins bête ce soir !