Bonjour.
J'ai sur une feuille "Tables", une liste nommée "Famille" (de A2 à A13) et une autre "SSFamille" (de B2 à B240) pour l'essentiel.
une seconde feuille "Base" comprend tout mon catalogue des produits ; Un traitement par macro me permet de ne présenter aux utilisateurs que les colonnes utiles et les lignes qui les concerne. J'ai donc besoin de filtrer par famille et par ssfamille pour n'afficher que les produits intéressants à l'instant T pour le service S.
Aujourd'hui, ma macro (ci-dessous) me fait ce travail correctement mais à chaque fois qu'un libellé est modifié sur ma feuille table il faut le recopier ; J'aimerai savoir comment faire pour transformer les critères de sélection en variable en les appelant directement sur le tableur.
(Field 1 = Famille // Field 2 = SSFamille)
ActiveSheet.Range("$A$10:$L$65536").AutoFilter Field:=1, Criteria1:="A.TRACTUS DIGESTIF"
Selection.AutoFilter Field:=2, Criteria1:="A.50 ALIMENTATION ENTERALE"
...
Selection.AutoFilter Field:=2, Criteria1:="A.51 COMPRESSION"
Application.Run "TFA"
...
Selection.AutoFilter Field:=2, Criteria1:="A.52 ASPIRATION IRRIGATION"
...
ActiveSheet.Range("$A$10:$L$65536").AutoFilter Field:=1, Criteria1:="B.SANG CIRCULATIONSANGUINE"
J'ai sur une feuille "Tables", une liste nommée "Famille" (de A2 à A13) et une autre "SSFamille" (de B2 à B240) pour l'essentiel.
une seconde feuille "Base" comprend tout mon catalogue des produits ; Un traitement par macro me permet de ne présenter aux utilisateurs que les colonnes utiles et les lignes qui les concerne. J'ai donc besoin de filtrer par famille et par ssfamille pour n'afficher que les produits intéressants à l'instant T pour le service S.
Aujourd'hui, ma macro (ci-dessous) me fait ce travail correctement mais à chaque fois qu'un libellé est modifié sur ma feuille table il faut le recopier ; J'aimerai savoir comment faire pour transformer les critères de sélection en variable en les appelant directement sur le tableur.
(Field 1 = Famille // Field 2 = SSFamille)
ActiveSheet.Range("$A$10:$L$65536").AutoFilter Field:=1, Criteria1:="A.TRACTUS DIGESTIF"
Selection.AutoFilter Field:=2, Criteria1:="A.50 ALIMENTATION ENTERALE"
...
Selection.AutoFilter Field:=2, Criteria1:="A.51 COMPRESSION"
Application.Run "TFA"
...
Selection.AutoFilter Field:=2, Criteria1:="A.52 ASPIRATION IRRIGATION"
...
ActiveSheet.Range("$A$10:$L$65536").AutoFilter Field:=1, Criteria1:="B.SANG CIRCULATIONSANGUINE"