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

[Ernesta]

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

 

[Ernesta]

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 !

 

[Ernesta]

voici le fichier correspondant à ma préoccupation

Bonne réception!

 

[Rouge]

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]

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

 

[Rouge]

Bonjour,

Voici le fichier avec les modifications demandées

Cdlt

 

[Ernesta]

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]

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]

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]

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

 

[Rouge]

Bonjour,

C'est un oubli de ma part, voici le fichier corrigé.


Cdlt

 

[Ernesta]

Bonjour,

C'est un oubli de ma part, voici le fichier corrigé.


Cdlt

Bonjour M ROUGE!
Merci ça fonctionne très bien

Cordialement