Macro pour masquer (et afficher) lignes contenant dimanche

Pierrot93

XLDnaute Barbatruc

• 20 Août 2015

• #2

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

Bonjour,

essaye ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 20 Août 2015

• #3

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 :

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2015

• #4

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

Re,

modifie comme suit :

Code:

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 20 Août 2015

• #5

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 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2015

• #6

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

Re,

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 20 Août 2015

• #7

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

Re,

Merci et bonne journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2015

• #8

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

Re,

Avec une variable "static" :

Code:

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 20 Août 2015

• #9

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 !

 

Vote positif 0 Vote négatif