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

comment supprimer deux ou plusieurs lignes identiques

16 réponses
Avatar
cailletrene
Bonjour,
J'ai un tableau de 2150 lignes que j'ai importé d'une base.
Dans ce tableau, il y a des lignes ou les références sont identiques.
je voudrais supprimer toutes les lignes qui identiques.

Merci.
René

10 réponses

1 2
Avatar
AV
J'ai un tableau de 2150 lignes que j'ai importé d'une base.
Dans ce tableau, il y a des lignes ou les références sont identiques.
je voudrais supprimer toutes les lignes qui identiques.


Connais-tu le filtre élaboré avec extraction sans doublons ?

AV

Avatar
JB
Bonjour,

BD en A1:

Sheets.Add after:=Sheets(1)
Sheets(1).[A1].CurrentRegion.AdvancedFilter Action:= _
xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True

http://boisgontierjacques.free.fr/fichiers/Filtre/SupDoublonsFiltre.xls

JB


On 15 juin, 09:59, "cailletrene" wrote:
Bonjour,
J'ai un tableau de 2150 lignes que j'ai importé d'une base.
Dans ce tableau, il y a des lignes ou les références sont identiques.
je voudrais supprimer toutes les lignes qui identiques.

Merci.
René


Avatar
cailletrene
Bonjour AV,
J'ai effectivement essayé " extraction sans doublons".
Mais cela ne m'efface que le doublon. Alors que je voudrais effacer les deux
ou plusieurs lignes qui sont identiques. Dons toutes les lignes qui sont
identiques.
Merci
René
"AV" a écrit dans le message de news:

J'ai un tableau de 2150 lignes que j'ai importé d'une base.
Dans ce tableau, il y a des lignes ou les références sont identiques.
je voudrais supprimer toutes les lignes qui identiques.


Connais-tu le filtre élaboré avec extraction sans doublons ?

AV





Avatar
cailletrene
Bonjour,
Bien, mais dans ton exemple après avoir cliqué, il reste encore les lignes
"jaune et bleue". Je désire effacer toutes les lignes ou il y aura eu des
doublons.
René

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

Bonjour,

BD en A1:

Sheets.Add after:=Sheets(1)
Sheets(1).[A1].CurrentRegion.AdvancedFilter Action:= _
xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True

http://boisgontierjacques.free.fr/fichiers/Filtre/SupDoublonsFiltre.xls

JB


On 15 juin, 09:59, "cailletrene" wrote:
Bonjour,
J'ai un tableau de 2150 lignes que j'ai importé d'une base.
Dans ce tableau, il y a des lignes ou les références sont identiques.
je voudrais supprimer toutes les lignes qui identiques.

Merci.
René


Avatar
AV
J'ai effectivement essayé " extraction sans doublons".
Mais cela ne m'efface que le doublon. Alors que je voudrais effacer les deux
ou plusieurs lignes qui sont identiques. Dons toutes les lignes qui sont
identiques.


??

Si la A1 contient "xx" et A2 contient "xx" tu veux effacer A1 ET A2 ??

Si oui, un bout de macro qui ajoute/enlève une colonne temporaire avec formule :

http://cjoint.com/?gpkZGRhXm7

AV

Avatar
JB
http://cjoint.com/?gpk0qLO5Ha

JB

On 15 juin, 10:33, "cailletrene" wrote:
Bonjour,
Bien, mais dans ton exemple après avoir cliqué, il reste encore les lignes
"jaune et bleue". Je désire effacer toutes les lignes ou il y aura eu d es
doublons.
René

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

Bonjour,

BD en A1:

Sheets.Add after:=Sheets(1)
Sheets(1).[A1].CurrentRegion.AdvancedFilter Action:= _
xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True

http://boisgontierjacques.free.fr/fichiers/Filtre/SupDoublonsFiltre.xls

JB

On 15 juin, 09:59, "cailletrene" wrote:



Bonjour,
J'ai un tableau de 2150 lignes que j'ai importé d'une base.
Dans ce tableau, il y a des lignes ou les références sont identique s.
je voudrais supprimer toutes les lignes qui identiques.

Merci.
René- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
cailletrene
On avance,
Il y a du progrès. Il reste encore à effacer les 3*300, les 2*1100 et 1*1000
qui n'ont pas été effacer dans cola.
René
"JB" a écrit dans le message de news:


http://cjoint.com/?gpk0qLO5Ha

JB

On 15 juin, 10:33, "cailletrene" wrote:
Bonjour,
Bien, mais dans ton exemple après avoir cliqué, il reste encore les
lignes

"jaune et bleue". Je désire effacer toutes les lignes ou il y aura eu des
doublons.
René

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

Bonjour,

BD en A1:

Sheets.Add after:=Sheets(1)
Sheets(1).[A1].CurrentRegion.AdvancedFilter Action:= _
xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True

http://boisgontierjacques.free.fr/fichiers/Filtre/SupDoublonsFiltre.xls

JB

On 15 juin, 09:59, "cailletrene" wrote:



Bonjour,
J'ai un tableau de 2150 lignes que j'ai importé d'une base.
Dans ce tableau, il y a des lignes ou les références sont identiques.
je voudrais supprimer toutes les lignes qui identiques.

Merci.
René- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
cailletrene
BRAVO, ça MARCHE!!!!!!!!!!!Super de super.
Comme je n'y connaît rien en VBA, Merci de bien vouloir me donner la marche
à suivre pour créer le Bouton en relation avec la macro.
Merci encore de ton aide.
René


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

Avec une gestion d'erreur c'est mieux !

http://cjoint.com/?gplgeYVk3K

AV




Avatar
AV
.... la marche
à suivre pour créer le Bouton en relation avec la macro.


Pour faire simmple : afficher la barre d'outils "Formulaire", dessiner un bouton
et lui affecter la macro

AV

Avatar
cailletrene
Merci
rené
"AV" a écrit dans le message de news:

.... la marche
à suivre pour créer le Bouton en relation avec la macro.


Pour faire simmple : afficher la barre d'outils "Formulaire", dessiner un
bouton

et lui affecter la macro

AV





1 2