Discussion :

[ericdev67]

Bonjour,

Voilà mon petit soucis : j'ai un planning avec des personnes et des horaires qui vont de 7h15 jusqu'à 22h servant à voir les disponibilités des uns et des autres. J'applique un filtre automatique pour sélectionner les personnes disponibles à 9h (par exemple).

Cellule A2 = nom des personnes
Cellule B2 = premier horaire
Cellule C2 = deuxième horaire
Je rentre les disponibilités de chacun exemple 9h00 (en A2,A3,...) 12h00 (en B2,B3,...)

Donc, lorsque je fais mon filtre sur 9h, naturellement, les personnes "libres" à 9h apparaissent.....par contre les personnes disponibles de 7h15 à 12h n'apparaissent pas....

Je cherche, je cherche, j'ai essayé avec les formules MIN-MAX, mais ça ne donne rien....

Une idée ???

Merci,

A+

[drakkar_agfa]

Bonjour,

Est-ce possible d'avoir un peu plus de détails?

Est-ce que tu inscris simplement "9h00" dans la colonne B?
Comment fais-tu les filtres? (différent de "9h00"?) Utilises-tu un usf pour sélectionner une plage?

Pour l'instant, il est impossible de trouver ce qui ne fonctionne pas.

Reviens nous avec plus de détails et nous pourrons (probablement) t'aider

[Fvandermeulen]

Salut,
Tu semble utiliser le filtre = à 09h00; as tu essayé en faisant <= à 09h00 ?
Dans ce cas, le 07h15 s'affichera.
A+

[ericdev67]

Merci drakkar_agfa,
Merci Fvandermeulen,

En fait mon souci, c'est je puisse le faire avec une instruction VBA.

Pour l'instant, j'ai le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").range("A6").autofilter field:2, criterial1:=range("b2")

= je mets mes filtres à partir de la ligne 6 et le filtre se fait à partir de la cellule B6, avec la valeur de la cellule B2.

Le problème Fvandermeulen, c'est que lorsque je veux "prendre" valeur de la cellule B2 et faire le "<09:00"(par exemple (09:00 étant alors la valeur b2)), dont tu me parles, le "criterial1:=" ne fonctionne plus, j'ai beau faire du .value, integer, string, rien ne prend......

Merci,
A+

`

ce que je veux dire, c'est que je souhaite avoir le <= par rapport à la cellule B2.....

Merci,
A+

[fgiambelluco]

Bonjour
Essaye avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").range("A6").autofilter field:2, criterial1:="<=" & range("b2")

[Fvandermeulen]

Salut,
Dans ce cas voici un code si ton début en B2 et fin en C2 pour filtre à partir de A6 pour le début et B6 pour la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Filtre()
'
Dim MonDe As Date, MonA As Date 'Dimensionnement des variables
 
MonDe = Sheets("sheet1").Range("B2") 'Récupérration de la valeur en B2, heure de début
MonA = Sheets("sheet1").Range("C2") 'Récupération de la valeur en C2, heure de fin
 
    Sheets("sheet1").Range("a6").AutoFilter Field:=1, Criteria1:="<=" & MonDe, Operator:=xlAnd 'applique le filtre de début
    Sheets("sheet1").Range("b6").AutoFilter Field:=2, Criteria1:=">=" & MonA, Operator:=xlAnd 'applique le filtre de fin
End Sub

A+

Edit: Trop étrange, je ne vois le message de fgiambelluco que maintenant que j'ai posté la réponse, mal réveillé ou bug, je sais pas, en tout cas, désolé pour le doublon...

[ericdev67]

Merci fgiambelluco,
Merci Fvandermeulen,

Effectivement vous m'avez donné la même réponse, ce qui confirme que le code fonctionne....Merci Fvandermeulen car je n'avais pas fait trop attention à la déclaration des variables et effectivement en donnant "as Date", ma variable a la bonne "déclaration"....(ça m'avait bloqué dans les différents codes que j'avais essayé...)

C'était simple, mais je n'y avait pas pensé au "&"....

simple et efficace

Merci à vous 2

A+ pour de prochaines aventures.....