Recherche valeurs distinctes plage nommées dynamiques

[h_de_r]

Bonjour,

J'ai créé une plage nommée dynamique :

ActiveWorkbook.Names.Add Name:="COUNTRY_NAME", RefersToR1C1:= _
"=CWH_data!R4C1:OFFSET(CWH_data!R4C1,,,CWH_data!R1C2)"

J'aimerai créer une macro qui me permette de rechercher les valeurs distinctes dans cette plage nommée dynamique.

Pour y arriver, j'active l'enregistreur de macro et je crée un "Advanced Data Filter" qui recherche les valeurs distinctes dans un "range" de cellules.
quand je regarde la macro, j'ai quelque chose comme:

Range("A3:A4").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("K4" _
), Unique:=True

Ensuite, logiquement, je remplace la plage de cellules par ma plage nommée dynamique:

Range(COUNTRY_NAME).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("K4" _
), Unique:=True

ou avec des double côtes:

Range("COUNTRY_NAME").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("K4" _
), Unique:=True

Mais rien n'y fait.

Est-ce que vous auriez une idée s'il vous plaît?

Merci beaucoup
HdeR

 

[Modeste]

Re : Recherche valeurs distinctes plage nommées dynamiques

Bonsoir h_de_r,

En isolant la première instruction de ton code (celle qui doit créer la plage dynamique) et en n'exécutant que cette seule instruction, il me semble qu'il serait intéressant d'aller voir dans Insertion > Nom ... à quoi correspond la plage ainsi nommée ... ça m'a l'air d'être un peu "particulier"

Avec une plage correctement définie,

Range("COUNTRY_NAME").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("K4" _
), Unique:=True

... fonctionne sous Xl2000!

 

[h_de_r]

Re : Recherche valeurs distinctes plage nommées dynamiques

Merci pour cette réponse
Elle me permet de savoir que la formula marche: à moi de revoir la plage nommée dynamique.

Sachant que la formule qui l'a crée vient effectivement de Insertion>Noms... j'espère avoir un bon tutoriel dessus.

Merci encore

h_de_r

 

[Modeste]

Re : Recherche valeurs distinctes plage nommées dynamiques

Bonjour h_de_r,

Sans fichier, difficile de savoir ce que tu avais en tête ... Quelques explications détaillées suffiraient pour que plein de gens arrivent avec des propositions !
Une recherche pourrait également donner des pistes plus précises.

Edit: A toutes fins utiles (et avec ce que j'ai cru comprendre) une base en pièce jointe