Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Macro d'exctraction sans doublon

3 réponses
Avatar
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

3 réponses

Avatar
michdenis
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" a écrit dans le message de groupe de
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
Avatar
isabelle
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





Avatar
Nangoustine
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" a écrit dans le message de groupe de
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