Bonjour =E0 tous, et bonnes vacances aux absents!
question aux pr=E9sents:
En Feuil1 on a une BDD, avec filtre automatique.=20
Colonne A: r=E9f de commandes clients, colonne B liste des=20
clients.
Les clients passant plusieurs commandes, la colonne B est=20
pleine de doublons.
Or en cliquant sur le triangle de filtrage en haut de la=20
colonne B on voit se d=E9rouler une fen=EAtre avec la liste=20
aplhab=E9tique des clients, sans doublons.
Je voudrais par macro obtenir cette liste et la placer en=20
colonne A de la feuille Feuil2 du m=EAme fichier.
Comment faire ?
Merci d'avance pour votre aide.
PierreG
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Pierre,
voici un exemple,
Sub ListeSansDoublon() Sheets("Feuil1").Activate Sheets("Feuil1").Range("A1:A" & _ Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True Sheets("Feuil2").Activate End Sub
isabelle
Bonjour à tous, et bonnes vacances aux absents! question aux présents: En Feuil1 on a une BDD, avec filtre automatique. Colonne A: réf de commandes clients, colonne B liste des clients. Les clients passant plusieurs commandes, la colonne B est pleine de doublons. Or en cliquant sur le triangle de filtrage en haut de la colonne B on voit se dérouler une fenêtre avec la liste aplhabétique des clients, sans doublons. Je voudrais par macro obtenir cette liste et la placer en colonne A de la feuille Feuil2 du même fichier. Comment faire ? Merci d'avance pour votre aide. PierreG
bonjour Pierre,
voici un exemple,
Sub ListeSansDoublon()
Sheets("Feuil1").Activate
Sheets("Feuil1").Range("A1:A" & _
Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True
Sheets("Feuil2").Activate
End Sub
isabelle
Bonjour à tous, et bonnes vacances aux absents!
question aux présents:
En Feuil1 on a une BDD, avec filtre automatique.
Colonne A: réf de commandes clients, colonne B liste des
clients.
Les clients passant plusieurs commandes, la colonne B est
pleine de doublons.
Or en cliquant sur le triangle de filtrage en haut de la
colonne B on voit se dérouler une fenêtre avec la liste
aplhabétique des clients, sans doublons.
Je voudrais par macro obtenir cette liste et la placer en
colonne A de la feuille Feuil2 du même fichier.
Comment faire ?
Merci d'avance pour votre aide.
PierreG
Sub ListeSansDoublon() Sheets("Feuil1").Activate Sheets("Feuil1").Range("A1:A" & _ Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True Sheets("Feuil2").Activate End Sub
isabelle
Bonjour à tous, et bonnes vacances aux absents! question aux présents: En Feuil1 on a une BDD, avec filtre automatique. Colonne A: réf de commandes clients, colonne B liste des clients. Les clients passant plusieurs commandes, la colonne B est pleine de doublons. Or en cliquant sur le triangle de filtrage en haut de la colonne B on voit se dérouler une fenêtre avec la liste aplhabétique des clients, sans doublons. Je voudrais par macro obtenir cette liste et la placer en colonne A de la feuille Feuil2 du même fichier. Comment faire ? Merci d'avance pour votre aide. PierreG
pierreg
Merci Isabelle, ça marche!!! Hier j'ai parcouru les messages "questions" du forum et les réponses, je suis baba : où les "répondeurs" (dont toi) ont ils appris tout ça sur ces macros ? Ca fait un moment que je bidouille des trucs dans mon coin, je ne vous arrive pas à la cheville! Admiration. Et en plus vous êtes sympas, chapeau. Bises.
-----Message d'origine----- bonjour Pierre,
voici un exemple,
Sub ListeSansDoublon() Sheets("Feuil1").Activate Sheets("Feuil1").Range("A1:A" & _ Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True Sheets("Feuil2").Activate End Sub
isabelle
Bonjour à tous, et bonnes vacances aux absents! question aux présents: En Feuil1 on a une BDD, avec filtre automatique. Colonne A: réf de commandes clients, colonne B liste des
clients. Les clients passant plusieurs commandes, la colonne B est
pleine de doublons. Or en cliquant sur le triangle de filtrage en haut de la
colonne B on voit se dérouler une fenêtre avec la liste aplhabétique des clients, sans doublons. Je voudrais par macro obtenir cette liste et la placer en
colonne A de la feuille Feuil2 du même fichier. Comment faire ? Merci d'avance pour votre aide. PierreG .
Merci Isabelle, ça marche!!!
Hier j'ai parcouru les messages "questions" du forum et
les réponses, je suis baba : où les "répondeurs" (dont
toi) ont ils appris tout ça sur ces macros ? Ca fait un
moment que je bidouille des trucs dans mon coin, je ne
vous arrive pas à la cheville! Admiration.
Et en plus vous êtes sympas, chapeau.
Bises.
-----Message d'origine-----
bonjour Pierre,
voici un exemple,
Sub ListeSansDoublon()
Sheets("Feuil1").Activate
Sheets("Feuil1").Range("A1:A" & _
Range("A65536").End(xlUp).Row).AdvancedFilter
Action:=xlFilterCopy, _
CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True
Sheets("Feuil2").Activate
End Sub
isabelle
Bonjour à tous, et bonnes vacances aux absents!
question aux présents:
En Feuil1 on a une BDD, avec filtre automatique.
Colonne A: réf de commandes clients, colonne B liste
des
clients.
Les clients passant plusieurs commandes, la colonne B
est
pleine de doublons.
Or en cliquant sur le triangle de filtrage en haut de
la
colonne B on voit se dérouler une fenêtre avec la liste
aplhabétique des clients, sans doublons.
Je voudrais par macro obtenir cette liste et la placer
en
colonne A de la feuille Feuil2 du même fichier.
Comment faire ?
Merci d'avance pour votre aide.
PierreG
.
Merci Isabelle, ça marche!!! Hier j'ai parcouru les messages "questions" du forum et les réponses, je suis baba : où les "répondeurs" (dont toi) ont ils appris tout ça sur ces macros ? Ca fait un moment que je bidouille des trucs dans mon coin, je ne vous arrive pas à la cheville! Admiration. Et en plus vous êtes sympas, chapeau. Bises.
-----Message d'origine----- bonjour Pierre,
voici un exemple,
Sub ListeSansDoublon() Sheets("Feuil1").Activate Sheets("Feuil1").Range("A1:A" & _ Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True Sheets("Feuil2").Activate End Sub
isabelle
Bonjour à tous, et bonnes vacances aux absents! question aux présents: En Feuil1 on a une BDD, avec filtre automatique. Colonne A: réf de commandes clients, colonne B liste des
clients. Les clients passant plusieurs commandes, la colonne B est
pleine de doublons. Or en cliquant sur le triangle de filtrage en haut de la
colonne B on voit se dérouler une fenêtre avec la liste aplhabétique des clients, sans doublons. Je voudrais par macro obtenir cette liste et la placer en
colonne A de la feuille Feuil2 du même fichier. Comment faire ? Merci d'avance pour votre aide. PierreG .
