Masquer lignes selon critères

[Georges]

Bonsoir,
Je reviens poser ma question car la dernière fois j'avais oublié de joindre mon fichier.

J'ai crée un planning de congés et pour celui-ci j'utilise des macros qui me permettent:
1/ d'accèder à la date du jour
2/ d'afficher toutes les dates
3/ d'accéder à une date selectionnée.

pour les points 1 et 2 j'ai utlisé des procédures que j'avais trouvé sur le forum.
Pour le point 3 j'ai voulu adapter une macro pour atteindre une date choisie.
Malheureusement elle ne fonctionne pas.
d'avance merci pour votre aide.
Cdt
Georges [file name=Masquerdates_20060410181633.zip size=12291]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Masquerdates_20060410181633.zip[/file]

 

[pierrejean]

bonjour Georges

vis si cela te conviens [file name=Masquerdates_20060410183209.zip size=12608]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Masquerdates_20060410183209.zip[/file]

 

[AV]

Ave,

Dans la macro Date_SEL
remplace la ligne
If c.Value < 'SEL_date' Then
par la ligne :
If c.Value signeInf [SEL_date] * 1 Then

PS : remplacer signeInf par l'opérateur logique ''inférieur à''

PS bis : Un conseil : dans la mesure du possible, éviter les boucles au maximum. Dans ton cas, il serait bien préférable d'utiliser un filtre.

AV (aaa]

 

[Dan]

Bonsoir,

Dans la proposition de AV, tu peux aussi remplacer SEL_date]^par --> Range('SEL_date')

Autre point, je vois que les variables ne sont pas déclarées dans tes macros

Veille donc à mettre au début:

Dim c as Range

et ce, dans tes trois macros.
Après cette déclaration de variable tu peux aussi mettre ce code :

Application.ScreenUpdating = False

.
Et si tu utilises cette dernière instruction, veille à mettre

Application.ScreenUpdating = True

juste après l'instruction 'NEXT'.

Bonne soirée

 

[Georges]

Bonjour,
Merci à vous tous pour vos solutions et conseils.
Cdt
Georges