Macro Liste déroulante --> filtre

[Jub]

Bonjour,

je vous joins mon fichier d'exemple.
je souhaite la chose suivante :
dans la feuil4, je choisis un NOM dans une liste déroulante. Je voudrais que ce choix permet de filtrer le tableau de la feuil3. (en agissant sur la colonne NOM).

une fois cela fait, de copier l'ensemble du tableau filtré, sachant que je veux virer également les doublons existants de la colonne D.

le lieu de copie est la feuil4, peu importe où.

Merci d'avance pour votre aide

 

[Paritec]

Re : Macro Liste déroulante --> filtre

Bonjour jub le forum,
concernant ta sélection OK mais après si on ne tient compte que de la colonne nom il ne te restera qu'un seul nom c'est ce que tu souhaites?
a+
Papou

 

[Si...]

Re : Macro Liste déroulante --> filtre

Bonsoir

un exemple avec la première partie.

 

[Jub]

Re : Macro Liste déroulante --> filtre

re bonjour,

oui oui je veux qu'un nom
pas de pb pour ça.

merci !

 

[Jub]

Re : Macro Liste déroulante --> filtre

Merci SI pour ce fichier.
Très utile.

pour les doublons, j'avais pensé à exercer un filtre élaboré (par macro)
Qu'en pensez vous ?

 

[Paritec]

Re : Macro Liste déroulante --> filtre

Bonjour Jub,
tu ne m'as pas répondu est-ce que tu veux tenir compte que de la colonne nom pour les doublons???
a+
Papou

 

[Jub]

Re : Macro Liste déroulante --> filtre

Bonjour Jub,
tu ne m'as pas répondu est-ce que tu veux tenir compte que de la colonne nom pour les doublons???
a+
Papou

ah pardon
non, les noms en doublons je m'en fiche, c'est plus dans la colonne que j'ai pré rempli que je veux enlever les doublons !

 

[Jub]

Re : Macro Liste déroulante --> filtre

Bon pour le filtre élaboré j'essaye de l'activer au moindre changment d'une valeur de cellule d'une colonne concerné.
J'ai une feuille dont les colonnes A et B se remplissent automatiquement.
des qu'une valeur change, je veux que la macro agisse en filtrant et extrayant sans doublons ces 2 colonnes.

Et ce sur un auter emplacement :colonne D et E.
et de trier en fonction de D.

je vous mets mon fichier exemple, ce sera plus clair et mon code, qui ne fonctionne pas

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("by1:by147")) Is Nothing Then


    Columns("A:B").Select
    Range("A1:B147").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns( _
        "D:E"), Unique:=True
End If

End Sub

Merci d'avance pour votre aide.

 

[Jub]

Re : Macro Liste déroulante --> filtre

je me sur-prends la tête
entre intersect, not intersect, application.intersect..
déclarer ou non le target....

aaaaaaaaaaaah, help !