Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

E

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
Trier par date Trier par votes
E

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 !
 
Vote positif 0 Vote négatif
R

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
 
Vote positif 0 Vote négatif
E

Ernesta

XLDnaute Nouveau
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
 
Vote positif 0 Vote négatif
E

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
 
Vote positif 0 Vote négatif
E

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
Vote positif 0 Vote négatif
E

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
 
Vote positif 0 Vote négatif
E

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
 
Vote positif 0 Vote négatif
R

Rouge

XLDnaute Impliqué
Bonjour,

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


Cdlt
 

Pièces jointes

  • Ernesta_filtre dynamique pour mettre des informations d'une colonne dans les bonnes feuilles_4.xlsb
    812.6 KB · Affichages: 5
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Résolu(e)
XL 2016 Code VBA pour garder les filtres d'entête actifs - Excel 2016
Réponses
2
Affichages
849
Cat678
C
J
  • Question
XL 2010 Séparer un fichier en plusieurs, en fonction de la valeur d'une colonne
Réponses
6
Affichages
1 K
Jaden
J
S
  • Question
Macro pour recopier une formule dans une colonne
Réponses
4
Affichages
2 K
sr94
S
J
  • Question
Extraction dynamique
Réponses
6
Affichages
2 K
jeanlouispaf
J
F
  • Question
Filtre élaboré avec critère sur colonne contenant formule datdif.
Réponses
12
Affichages
2 K
fred777
F
  • Question
Choisir un dossier de destination lors de l'appel d'une macro qui créer des fichiers.
Réponses
6
Affichages
2 K
Vich
W
  • Question
Adapter code filtre elaboré
Réponses
2
Affichages
20 K
winkel
W
2
  • Question
Adapter code classeur pour feuilles
Réponses
4
Affichages
933
2susy
2
M
  • Question
Accéder au contenu d'une cellule pour faire un filtre
Réponses
9
Affichages
2 K
Guest
G
M
  • Question
Est il possible de faire une recherche en vba utilisant des boucles et itérations ?
Réponses
2
Affichages
1 K
Gorfael
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…