Filtres sur les semaines

[kinel]

bonjour à tous

je voudrais créer un filtre sur les semaines pour le classeur joint

auriez vous une idée ? Merci

Kinel

 

[mutzik]

Re : Filtres sur les semaines

Bonjour Kinel, le Forum

comment veux-tu filtrer sur une donnée qui n'existe pas. Il te faut d'abord créer une colonne avec tes nr de semaine. Fais une recherche sur le forum avec 'semaine' en mot-clé

 

[kinel]

Re : Filtres sur les semaines

bonjour mutzik

effectivement je vais essayer par là
je ne savais pas par quel bout prendre ce problème mais voilà qui est fait

Merci
Kinel

 

[vbacrumble]

Re : Filtres sur les semaines

Bonjour

Kinel:
Tu es sur que tu ne savais pas comment faire ?

Pourtant je t'avais déjà explicité la chose (et d'autres avec moi)
Lien supprimé

Dans cet autre fil que tu as ouvert à propos des numéros de semaine
Tu as la mémoire courte ou défaillante !

Tu devrais en urgence relire la charte du forum.

 

[BOISGONTIER]

Re : Filtres sur les semaines

Bonjour,

Voir PJ

JB

 

[kinel]

Re : Filtres sur les semaines

merci boisgontier

désolé vbacrumble mais ma question est différente, je me suis peut être mal exprimé

les éléments de nos deux amis m'ont permis de trouver un chemin vers ce que je cherche

merci à tous

Kinel

 

[kinel]

Re : Filtres sur les semaines

bonjour à tous

petite question à boisgontier :

je ne parviens pas à reproduire les listes telle qu'elles sont réalisées dans la PJ

le résultat est sur le chemin de ce que je cherche si ce n'est que je désire afficher uin numéro de semaine afin que le filtre m'affiche les patients présents cette semaine là

merci de votre aide

Kinel

 

[kinel]

Re : Filtres sur les semaines

re bjr

j'ai modifié un peu le code et ça fonctionne pour l'affichage des patients de la semaine mais j'ai un message d'erreur sur cette ligne :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$D$2" Then
If [D2] <> "" Then
[B7].AutoFilter Field:=4, Criteria1:="<=" & CDbl(Range("f2"))
[B7].AutoFilter Field:=5, Criteria1:=">=" & CDbl(Range("f2")), Operator:=xlOr, Criteria1:="="
Else
On Error Resume Next
ActiveSheet.ShowAllData
End If
End If
End Sub

auriez vous une idée ?
Merci
Kinel

 

[abcd]

Re : Filtres sur les semaines

Bonjour,

Je ne vois d'autre solution, par formule, que de filtrer sur une colonne supplémentaire qui vérifie si le patient a été admis avant la fin de la semaine concernée et n'est pas parti avant le début de cette semaine, tout en considérant que s'il n'y a pas de date de sortie, c'est qu'il est encore présent.

Le compteur a été déplacé parce qu'il était parfois masqué par le filtre.

abcd

 

[kinel]

Re : Filtres sur les semaines

merci beaucoup abcd
ça commence à correspondre parfaitement
j'ai modifié un peu dans la copie jointe

la seule chose qui coince c'est quand on clique une deuxième fois sur le bouton sans filtre

je ne trouve pas la solution !!
😡

Kinel

 

[BOISGONTIER]

Re : Filtres sur les semaines

Bonjour,

Sub tous()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

Avec le filtre élaboré, la colonne F n'est pas nécessaire. La formule peut être mise dans le critère.

JB

 

[kinel]

Re : Filtres sur les semaines

bonjour à tous

j'ai encore un petit souci sur cette formule

=ET(D6<=C$2;E6>=SI(E6="";E6;D$2))

actuellement si la ligne 6(dans cet exemple) est vide il me met VRAI

comme je fais référence aux cellules C6 et D6 je voudrais qu'il me mette FAUX lorsque ces 2 cellules sont vides

merci de votre aide

Kinel