XL 2016 filtre dynamique pour mettre des informations d'une colonne dans les bonnes feuilles

Ernesta

XLDnaute Nouveau
Bonsoir à tous les cracks du forum!
j'ai un tableau dont je voudrai faire le tris de certaines informations à partir de données de colonnes en créant un feuille spécifique.

j'ai pour cela fait des tentative avec ce code VBA mais sans succès. je voudrais comprendre d'où vient mon erreur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 30 Then
[A7:AL10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Titulaire").[AT7:AT82], _
CopyToRange:=Sheets("Titulaire").[A7:AL8]
End If
End Sub

je voudrai automatiser le transfert des information que je rentre dans cette colonne dans une feuille qui porte le même nom
 

Pièces jointes

  • Mon annuaire.xlsm
    572.1 KB · Affichages: 20

Ernesta

XLDnaute Nouveau
Bonsoir à tous!

M ROUGE notre macro fonctionnait bien pour la colonne 30 (Statut) qui donnait droit à une ventilation des lignes dans les bonnes feuilles avec des noms correspondants ("Titulaire"; "Nouveau Titulaire"; "Suppléant" ; "Nouveau Suppléant". ce qui correspondait à ma première attente (voir fichier fourni dans votre réponse #9).
par contre dans ma préoccupation en #10 certainement un problème d'expression de ma part, il s'agit de reprendre, dans la mesure du possible, le travail de cette macro pour l'appliquer sur les colonnes 33 (commission 1), 34 (commission 2) et 35 (commission 3) de la feuille "Source" pour filtrer les lignes et les ventiler dans les feuilles avec des noms correspondants "1 CAECIDN"; "2 CLAADH"; "3 CFBCEN"; "4 CACSC"; "5 CAPEPE" et "6 CPDATD" mais à la condition que l'information de la colonne 32 (Motifs) soit Siège sinon rien ne se produit dans les feuilles concernés.
De plus, ces informations devraient être reparties en même temps de celle de la macro de la colonne 30 (statut)
je vous retourne le fichier avec la création des feuilles "1 CAECIDN"; "2 CLAADH"; "3 CFBCEN"; "4 CACSC"; "5 CAPEPE" et "6 CPDATD".

je vous souhaite une bonne réception!

cordialement !
 

Rouge

XLDnaute Impliqué
Bonjour,

Apparemment j'avais mal compris la deuxième demande, il faut donc, créer une feuille pour chaque type de commission en plus de celles de 'Titulaire", "Nouveau Titulaire" etc..
Question:
-Le nombre de type de commissions s'arrête-t-il aux 6 présentes dans la feuille ou bien il peut y en avoir d'autres?

Cdlt
 

Ernesta

XLDnaute Nouveau
Bonjour,

Apparemment j'avais mal compris la deuxième demande, il faut donc, créer une feuille pour chaque type de commission en plus de celles de 'Titulaire", "Nouveau Titulaire" etc..
Question:
-Le nombre de type de commissions s'arrête-t-il aux 6 présentes dans la feuille ou bien il peut y en avoir d'autres?

Cdlt
bonjour à tous!
M ROUGE c'est exactement l'objectif recherché en créant une feuille pour chaque commission en plus de celles déjà existantes. merci de me comprendre
il n'y a que les six (6) présentes dans la feuille

Cordialement
 

Ernesta

XLDnaute Nouveau
Bonjour à tous!
M ROUGE 👍le résultat est impressionnant. c'est parfait.
vous avez été d'une écoute attentive. trouvez ici l'expression de toute ma gratitude. vous êtes un crack pour Excel. je serais ravis de vous retrouver une prochaine fois avec l'ensemble des membres du forum pour des nouvelles préoccupations.

avec tous mes compliments, ErnestA
 

Ernesta

XLDnaute Nouveau
Bonsoir à tous!
j'ai pris le temps d'examiner le fonctionnement de la Macro du dernier fichier et je m'aperçois qu'il manque la condition :
'premier filtrage par "MOTIFS", on n'affiche que les motifs qui sont à "Siège"
f1.Range("A7:AL" & DerLig_f1).AutoFilter Field:=32, Criteria1:="Siège"
où placer cette ligne dans la macro pour qu'elle respecte l'affichage des lignes dans les différentes commissions afin de filtrer les lignes et les ventiler dans les feuilles avec des noms correspondants "1 CAECIDN"; "2 CLAADH"; "3 CFBCEN"; "4 CACSC"; "5 CAPEPE" et "6 CPDATD" mais à la condition que l'information de la colonne 32 (Motifs) soit Siège sinon rien ne se produit dans les feuilles concernées.

je m'excuse pour le constat tardif de ce détail sur l'exécution de la macro.

cordialement ErnestA
 

Pièces jointes

  • Ernesta_filtre dynamique pour mettre des informations d'une colonne dans les bonnes feuilles_3.xlsb
    814.4 KB · Affichages: 3

Ernesta

XLDnaute Nouveau
Bonsoir à tous!
j'ai pris le temps d'examiner le fonctionnement de la Macro du dernier fichier et je m'aperçois qu'il manque la condition :
'premier filtrage par "MOTIFS", on n'affiche que les motifs qui sont à "Siège"
f1.Range("A7:AL" & DerLig_f1).AutoFilter Field:=32, Criteria1:="Siège"
où placer cette ligne dans la macro pour qu'elle respecte l'affichage des lignes dans les différentes commissions afin de filtrer les lignes et les ventiler dans les feuilles avec des noms correspondants "1 CAECIDN"; "2 CLAADH"; "3 CFBCEN"; "4 CACSC"; "5 CAPEPE" et "6 CPDATD" mais à la condition que l'information de la colonne 32 (Motifs) soit Siège sinon rien ne se produit dans les feuilles concernées.

je m'excuse pour le constat tardif de ce détail sur l'exécution de la macro.

cordialement ErnestA
 

Ernesta

XLDnaute Nouveau
Bonsoir à tous!
j'ai pris le temps d'examiner le fonctionnement de la Macro du dernier fichier et je m'aperçois qu'il manque la condition :
'premier filtrage par "MOTIFS", on n'affiche que les motifs qui sont à "Siège"
f1.Range("A7:AL" & DerLig_f1).AutoFilter Field:=32, Criteria1:="Siège"
où placer cette ligne dans la macro pour qu'elle respecte l'affichage des lignes dans les différentes commissions afin de filtrer les lignes et les ventiler dans les feuilles avec des noms correspondants "1 CAECIDN"; "2 CLAADH"; "3 CFBCEN"; "4 CACSC"; "5 CAPEPE" et "6 CPDATD" mais à la condition que l'information de la colonne 32 (Motifs) soit Siège sinon rien ne se produit dans les feuilles concernées.

je m'excuse pour le constat tardif de ce détail sur l'exécution de la macro.

cordialement ErnestA
 

Discussions similaires

Statistiques des forums

Discussions
298 010
Messages
1 965 112
Membres
200 850
dernier inscrit
fakihan