Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel comment supprimer les lignes d'un tableau comportant les doublons sur plusieurs colonnes ???

comment supprimer les lignes d'un tableau comportant les doublons sur plusieurs colonnes ???

7 réponses
Avatar
Chantik
Bonjour,
A l'aide d'une macro comment supprimer les lignes d'un tableau comportant
les doublons sur plusieurs colonnes (ici 3 colonnes???)
exemple :
Nom age Lieu Département

Pierre 28 75
Jacques 32 31
Paul 25 13
Pierre 28 75
Jacques 29 33
Jacques 32 31
Pierre 23 13
Paul 29 75
Pierre 28 75

Merci pour votre aide!
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
isabelle
bonjour Chantik,

Range("A1:C10").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

isabelle


Bonjour,
A l'aide d'une macro comment supprimer les lignes d'un tableau comportant
les doublons sur plusieurs colonnes (ici 3 colonnes???)
exemple :
Nom age Lieu Département

Pierre 28 75
Jacques 32 31
Paul 25 13
Pierre 28 75
Jacques 29 33
Jacques 32 31
Pierre 23 13
Paul 29 75
Pierre 28 75

Merci pour votre aide!




Avatar
Chantik
Merci Isabelle pour ta réponse rapide..
J'aimerais une précision...si le tableau correspond à
Range("A1").CurrentRegion.Select
Comment le mettre en vb???

"isabelle" a écrit dans le message de news:

bonjour Chantik,

Range("A1:C10").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

isabelle


Bonjour,
A l'aide d'une macro comment supprimer les lignes d'un tableau comportant
les doublons sur plusieurs colonnes (ici 3 colonnes???)
exemple :
Nom age Lieu Département

Pierre 28 75
Jacques 32 31
Paul 25 13
Pierre 28 75
Jacques 29 33
Jacques 32 31
Pierre 23 13
Paul 29 75
Pierre 28 75

Merci pour votre aide!




Avatar
isabelle
re bonjour Chantik,

Range("A1").CurrentRegion.Select
Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

isabelle


Merci Isabelle pour ta réponse rapide..
J'aimerais une précision...si le tableau correspond à
Range("A1").CurrentRegion.Select
Comment le mettre en vb???

"isabelle" a écrit dans le message de news:


bonjour Chantik,

Range("A1:C10").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

isabelle



Bonjour,
A l'aide d'une macro comment supprimer les lignes d'un tableau comportant
les doublons sur plusieurs colonnes (ici 3 colonnes???)
exemple :
Nom age Lieu Département

Pierre 28 75
Jacques 32 31
Paul 25 13
Pierre 28 75
Jacques 29 33
Jacques 32 31
Pierre 23 13
Paul 29 75
Pierre 28 75

Merci pour votre aide!









Avatar
Chantik
OK merci ....ça marche !!!

"Chantik" a écrit dans le message de news:
436c07d4$0$21073$
Merci Isabelle pour ta réponse rapide..
J'aimerais une précision...si le tableau correspond à
Range("A1").CurrentRegion.Select
Comment le mettre en vb???

"isabelle" a écrit dans le message de news:

bonjour Chantik,

Range("A1:C10").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

isabelle


Bonjour,
A l'aide d'une macro comment supprimer les lignes d'un tableau
comportant les doublons sur plusieurs colonnes (ici 3 colonnes???)
exemple :
Nom age Lieu Département

Pierre 28 75
Jacques 32 31
Paul 25 13
Pierre 28 75
Jacques 29 33
Jacques 32 31
Pierre 23 13
Paul 29 75
Pierre 28 75

Merci pour votre aide!








Avatar
Chantik
J'ai encore un dernier souci!!!!
Sur des plages non contigües...ça ne fonctionne pas
J'ai essayé ceci
Dim Z1, Z2, Z3, Colonnes As Range
Range("A2").Select
ActiveCell.End(xlDown).Select
Zone1 = ActiveCell.Address
Selection.Offset(0, 1).Select
Zone2 = ActiveCell.Address
Selection.Offset(0, 2).Select
Zone3 = ActiveCell.Address
Set Z1 = Range("A2", Zone1)
Set Z2 = Range("B2", Zone2)
Set Z3 = Range("D2", Zone3)
Set Colonnes = Union(Z1, Z2, Z3)

Selection = Colonnes.Select

Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

La sélection se fait bien...mais j'ai ensuite le message d'erreur :erreur
d'exécution 1004...."Plage de base de données ou liste non valide"
Le filtre sur la Sélection ne fonctionne pas...Pourquoi???

Merci!



"Chantik" a écrit dans le message de news:
436c0af3$0$21051$
OK merci ....ça marche !!!

"Chantik" a écrit dans le message de news:
436c07d4$0$21073$
Merci Isabelle pour ta réponse rapide..
J'aimerais une précision...si le tableau correspond à
Range("A1").CurrentRegion.Select
Comment le mettre en vb???

"isabelle" a écrit dans le message de news:

bonjour Chantik,

Range("A1:C10").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

isabelle


Bonjour,
A l'aide d'une macro comment supprimer les lignes d'un tableau
comportant les doublons sur plusieurs colonnes (ici 3 colonnes???)
exemple :
Nom age Lieu Département

Pierre 28 75
Jacques 32 31
Paul 25 13
Pierre 28 75
Jacques 29 33
Jacques 32 31
Pierre 23 13
Paul 29 75
Pierre 28 75

Merci pour votre aide!












Avatar
michdenis
Bonjour Chantik,

A ) ta plage doit avoir des étiquettes de colonne c'est obligatoire

B ) Pourquoi ne pas prendre toute la plage comme plage de données source
Exemple A1:G25 même si tu désires copier les résultat de ton filtre (colonne A, B, D) vers une autre plage de destination.

Pour ce faire, inscris à l'avance dans la plage de destination, seulement les 3 étiquettes des colonnes de ta plage source dont tu
veux avoir le résultat(elles n'ont pas à être adjacentes). Et dans la fenêtre du filtre élaboré, tu coches copier vers une autre
destination et tu désignes cette lignes de code (exemple H1:H3) comme plage de destination.


Salutations!




"Chantik" a écrit dans le message de news:
J'ai encore un dernier souci!!!!
Sur des plages non contigües...ça ne fonctionne pas
J'ai essayé ceci
Dim Z1, Z2, Z3, Colonnes As Range
Range("A2").Select
ActiveCell.End(xlDown).Select
Zone1 = ActiveCell.Address
Selection.Offset(0, 1).Select
Zone2 = ActiveCell.Address
Selection.Offset(0, 2).Select
Zone3 = ActiveCell.Address
Set Z1 = Range("A2", Zone1)
Set Z2 = Range("B2", Zone2)
Set Z3 = Range("D2", Zone3)
Set Colonnes = Union(Z1, Z2, Z3)

Selection = Colonnes.Select

Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

La sélection se fait bien...mais j'ai ensuite le message d'erreur :erreur
d'exécution 1004...."Plage de base de données ou liste non valide"
Le filtre sur la Sélection ne fonctionne pas...Pourquoi???

Merci!



"Chantik" a écrit dans le message de news:
436c0af3$0$21051$
OK merci ....ça marche !!!

"Chantik" a écrit dans le message de news:
436c07d4$0$21073$
Merci Isabelle pour ta réponse rapide..
J'aimerais une précision...si le tableau correspond à
Range("A1").CurrentRegion.Select
Comment le mettre en vb???

"isabelle" a écrit dans le message de news:

bonjour Chantik,

Range("A1:C10").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

isabelle


Bonjour,
A l'aide d'une macro comment supprimer les lignes d'un tableau
comportant les doublons sur plusieurs colonnes (ici 3 colonnes???)
exemple :
Nom age Lieu Département

Pierre 28 75
Jacques 32 31
Paul 25 13
Pierre 28 75
Jacques 29 33
Jacques 32 31
Pierre 23 13
Paul 29 75
Pierre 28 75

Merci pour votre aide!












Avatar
Chantik
Ok merci pour votre aide
J'ai suivi les conseils de michdenis...ça marche
Les entêtes existent...la plage de données correspond au
currentregion.select..et j'ai inscrit les étiquettes de colonnes qui
m'intéressent sur la feuil2!!
Range("A1").CurrentRegion.Select
Selection.AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("Feuil2!A1:F1"), Unique:=True
Merci.

"michdenis" a écrit dans le message de news:


Bonjour Chantik,

A ) ta plage doit avoir des étiquettes de colonne c'est obligatoire

B ) Pourquoi ne pas prendre toute la plage comme plage de données source
Exemple A1:G25 même si tu désires copier les résultat de ton filtre
(colonne A, B, D) vers une autre plage de destination.

Pour ce faire, inscris à l'avance dans la plage de destination, seulement
les 3 étiquettes des colonnes de ta plage source dont tu
veux avoir le résultat(elles n'ont pas à être adjacentes). Et dans la
fenêtre du filtre élaboré, tu coches copier vers une autre
destination et tu désignes cette lignes de code (exemple H1:H3) comme
plage de destination.


Salutations!




"Chantik" a écrit dans le message de news:

J'ai encore un dernier souci!!!!
Sur des plages non contigües...ça ne fonctionne pas
J'ai essayé ceci
Dim Z1, Z2, Z3, Colonnes As Range
Range("A2").Select
ActiveCell.End(xlDown).Select
Zone1 = ActiveCell.Address
Selection.Offset(0, 1).Select
Zone2 = ActiveCell.Address
Selection.Offset(0, 2).Select
Zone3 = ActiveCell.Address
Set Z1 = Range("A2", Zone1)
Set Z2 = Range("B2", Zone2)
Set Z3 = Range("D2", Zone3)
Set Colonnes = Union(Z1, Z2, Z3)

Selection = Colonnes.Select

Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

La sélection se fait bien...mais j'ai ensuite le message d'erreur :erreur
d'exécution 1004...."Plage de base de données ou liste non valide"
Le filtre sur la Sélection ne fonctionne pas...Pourquoi???

Merci!



"Chantik" a écrit dans le message de news:
436c0af3$0$21051$
OK merci ....ça marche !!!

"Chantik" a écrit dans le message de news:
436c07d4$0$21073$
Merci Isabelle pour ta réponse rapide..
J'aimerais une précision...si le tableau correspond à
Range("A1").CurrentRegion.Select
Comment le mettre en vb???

"isabelle" a écrit dans le message de news:

bonjour Chantik,

Range("A1:C10").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

isabelle


Bonjour,
A l'aide d'une macro comment supprimer les lignes d'un tableau
comportant les doublons sur plusieurs colonnes (ici 3 colonnes???)
exemple :
Nom age Lieu Département

Pierre 28 75
Jacques 32 31
Paul 25 13
Pierre 28 75
Jacques 29 33
Jacques 32 31
Pierre 23 13
Paul 29 75
Pierre 28 75

Merci pour votre aide!