V
vgrenet
Guest
Bonjour
Je repose une discussion car je ne m'en sors toujours pas...
En fait j'explique le projet
J'ai un premier tableau avec des colonnes A, B, C, D avec respectivement
Dates depuis 2002 (lundi 2 janvier 2002),
identifiant de calendrier (format numérique),
Libéllé du calendrier (AN2, AN, H...)
Jours de la semaine (j'ai créer cette colonne reprenant sous format texte que le jours : lundi, mardi...)
J'ai un deuxièmme tableau que j'ai copier à cotê (F2:L4) avec respectivement les lignes Service, Calendrier (libéllé), jours de fonctionnement (lundi, mardi...)
Je veux pous chaque service avoir un calendrier m'indiquant ces jours de fonctionement. c'est à dire pour le service 1055 (G2) qui a un calendrier AN2 (G3) et qui fonctionne les lundi, mardi, jeudi (G4) sélectionner toutes les lignes du premier tableau ou la colonne C = AN2 (G3) ET la colonne D = lundi ou mardi ou jeudi.
J'espère avoir été clair (j'en doute!!!)
J'arrive à faire le premier filtre sur la colonne C mais pas sur la colonne D dont voici le code pour l'instant
ActiveSheet.UsedRange.Cells(1, 4).EntireColumn.Select 'séléction de la colonne où se trouve le critère
'Selection.AutoFilter ' met en place les filtres automatique
ActiveSheet.ListObjects("Tableau_Lancer_la_requête_à_partir_de_PEGASE9").Range. _
AutoFilter Field:=4, Criteria1:=Range("G4").Value
Je joins un fichier exemple avec la feuille 1 regroupant les deux tableaux et la feuille 2 le résultat attendu.
Merci
Je repose une discussion car je ne m'en sors toujours pas...
En fait j'explique le projet
J'ai un premier tableau avec des colonnes A, B, C, D avec respectivement
Dates depuis 2002 (lundi 2 janvier 2002),
identifiant de calendrier (format numérique),
Libéllé du calendrier (AN2, AN, H...)
Jours de la semaine (j'ai créer cette colonne reprenant sous format texte que le jours : lundi, mardi...)
J'ai un deuxièmme tableau que j'ai copier à cotê (F2:L4) avec respectivement les lignes Service, Calendrier (libéllé), jours de fonctionnement (lundi, mardi...)
Je veux pous chaque service avoir un calendrier m'indiquant ces jours de fonctionement. c'est à dire pour le service 1055 (G2) qui a un calendrier AN2 (G3) et qui fonctionne les lundi, mardi, jeudi (G4) sélectionner toutes les lignes du premier tableau ou la colonne C = AN2 (G3) ET la colonne D = lundi ou mardi ou jeudi.
J'espère avoir été clair (j'en doute!!!)
J'arrive à faire le premier filtre sur la colonne C mais pas sur la colonne D dont voici le code pour l'instant
ActiveSheet.UsedRange.Cells(1, 4).EntireColumn.Select 'séléction de la colonne où se trouve le critère
'Selection.AutoFilter ' met en place les filtres automatique
ActiveSheet.ListObjects("Tableau_Lancer_la_requête_à_partir_de_PEGASE9").Range. _
AutoFilter Field:=4, Criteria1:=Range("G4").Value
Je joins un fichier exemple avec la feuille 1 regroupant les deux tableaux et la feuille 2 le résultat attendu.
Merci