Macro d'exctraction sans doublon

Le
Nangoustine
Bonjour,

J'ai un classeur avec 2 feuilles:
- Données = Feuille source
- Recap = Feuille de destination

Je souhaite par Macro extraire sans doublon les valeurs de G10:G2000 de la
feuille Données vers la Feuille Recap sur la plage de cellules nommées
aymeric2
J'essaie de lancer la macro ci-dessous depuis la feuille Recap, mais il y a
un beug.
Auriez vous une idée du souci?
Merci
A.

Sub Filtrsd()
RECAP.Activate
RECAP.Names.Add "aymeric2", Données.[G10:G2000]
Range("aymeric2").AdvancedFilter xlFilterCopy, , [b2], 1
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20664221
Bonjour,

Dans un filtre élaboré, la première ligne indiquée dans
la plage est considérée comme étant l'étiquette de la
colonne !

Sub test()
With Worksheets("Données")
With .Range("G10:G2000")
.AdvancedFilter xlFilterCopy, ,Worksheets("Recap").Range("A1"), True
End With
End With
End Sub




"Nangoustine" discussion :
Bonjour,

J'ai un classeur avec 2 feuilles:
- Données = Feuille source
- Recap = Feuille de destination

Je souhaite par Macro extraire sans doublon les valeurs de G10:G2000 de la
feuille Données vers la Feuille Recap sur la plage de cellules nommées
aymeric2
J'essaie de lancer la macro ci-dessous depuis la feuille Recap, mais il y a
un beug.
Auriez vous une idée du souci?
Merci
A.

Sub Filtrsd()
RECAP.Activate
RECAP.Names.Add "aymeric2", Données.[G10:G2000]
Range("aymeric2").AdvancedFilter xlFilterCopy, , [b2], 1
End Sub
isabelle
Le #20664421
bonjour Nangoustine,

Sheets("Données").Range("G10:G2000").AdvancedFilter xlFilterCopy, ,
Range("aymeric2"), True

isabelle

Nangoustine a écrit :
Bonjour,

J'ai un classeur avec 2 feuilles:
- Données = Feuille source
- Recap = Feuille de destination

Je souhaite par Macro extraire sans doublon les valeurs de G10:G2000 de la
feuille Données vers la Feuille Recap sur la plage de cellules nommées
aymeric2
J'essaie de lancer la macro ci-dessous depuis la feuille Recap, mais il y a
un beug.
Auriez vous une idée du souci?
Merci
A.

Sub Filtrsd()
RECAP.Activate
RECAP.Names.Add "aymeric2", Données.[G10:G2000]
Range("aymeric2").AdvancedFilter xlFilterCopy, , [b2], 1
End Sub





Nangoustine
Le #20664751
Ca marche parfaitement.
Merci
--
Nangoustine


"michdenis" a écrit :

Bonjour,

Dans un filtre élaboré, la première ligne indiquée dans
la plage est considérée comme étant l'étiquette de la
colonne !

Sub test()
With Worksheets("Données")
With .Range("G10:G2000")
.AdvancedFilter xlFilterCopy, ,Worksheets("Recap").Range("A1"), True
End With
End With
End Sub




"Nangoustine" discussion :
Bonjour,

J'ai un classeur avec 2 feuilles:
- Données = Feuille source
- Recap = Feuille de destination

Je souhaite par Macro extraire sans doublon les valeurs de G10:G2000 de la
feuille Données vers la Feuille Recap sur la plage de cellules nommées
aymeric2
J'essaie de lancer la macro ci-dessous depuis la feuille Recap, mais il y a
un beug.
Auriez vous une idée du souci?
Merci
A.

Sub Filtrsd()
RECAP.Activate
RECAP.Names.Add "aymeric2", Données.[G10:G2000]
Range("aymeric2").AdvancedFilter xlFilterCopy, , [b2], 1
End Sub



Publicité
Poster une réponse
Anonyme