Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel supprimer doublons / garder unique

supprimer doublons / garder unique

6 réponses
Avatar
j
Bonsoir,

Est il possible en VBA de supprimer tous les lignes qui sont en doublons
dans une colonne (B:B) et ne garder que les uniques.

Par exemple :

A B C
001 xxx toto
002 xxx lulu
003 aaa tata
004 xxx titi
005 bbb baba
006 bbb bibi


Dans cet exemple seule la ligne 003 doit rester car unique

Merci de votre aide

jyb
Signaler un problème avec ce contenu

6 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
JB
Bonsoir,

Avec le filtre élaboré:
Critère: =NB.SI($B$2:$B$20;B2)=1

http://cjoint.com/?mkuOSOqf00

JB
http://boisgontierjacques.free.fr/

On 10 déc, 19:34, "" wrote:
Bonsoir,

Est il possible en VBA de supprimer tous les lignes qui sont en doublons
dans une colonne (B:B) et ne garder que les uniques.

Par exemple :

A                         B                        C
001                    xxx                     toto
002                    xxx                     lulu
003                    aaa                     tata
004                    xxx                     titi
005                    bbb                    baba
006                    bbb                     bibi

Dans cet exemple seule la ligne 003 doit rester car unique

Merci de votre aide

jyb


Avatar
Jacky
Bonsoir,
Dans cet exemple seule la ligne 003 doit rester car unique


'----------------
Sub jj()
ActiveSheet.AutoFilterMode = False
With Range("a1:c6")
.AutoFilter Field:=2, Criteria1:="<>aaa"
.Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.AutoFilterMode = False
End Sub
'-----------------------

--
Salutations
JJ


"" a écrit dans le message de news:
49400a76$0$22015$
Bonsoir,

Est il possible en VBA de supprimer tous les lignes qui sont en doublons
dans une colonne (B:B) et ne garder que les uniques.

Par exemple :

A B C
001 xxx toto
002 xxx lulu
003 aaa tata
004 xxx titi
005 bbb baba
006 bbb bibi


Dans cet exemple seule la ligne 003 doit rester car unique

Merci de votre aide

jyb





Avatar
j
Merci mais aaa n'est qu'un exemple, il faut garder que les lignes qui sont
uniques sur un tableau qui fait 1000 lignes environ

jyb


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

Bonsoir,
Dans cet exemple seule la ligne 003 doit rester car unique


'----------------
Sub jj()
ActiveSheet.AutoFilterMode = False
With Range("a1:c6")
.AutoFilter Field:=2, Criteria1:="<>aaa"

.Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.AutoFilterMode = False
End Sub
'-----------------------

--
Salutations
JJ


"" a écrit dans le message de news:
49400a76$0$22015$
Bonsoir,

Est il possible en VBA de supprimer tous les lignes qui sont en doublons
dans une colonne (B:B) et ne garder que les uniques.

Par exemple :

A B C
001 xxx toto
002 xxx lulu
003 aaa tata
004 xxx titi
005 bbb baba
006 bbb bibi


Dans cet exemple seule la ligne 003 doit rester car unique

Merci de votre aide

jyb









Avatar
Jacky
Re..
Alors faudra adopter des entêtes de ligne
JB en donne la solution

--
Salutations
JJ


"" a écrit dans le message de news:
494021bb$0$17082$
Merci mais aaa n'est qu'un exemple, il faut garder que les lignes qui sont
uniques sur un tableau qui fait 1000 lignes environ

jyb


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

Bonsoir,
Dans cet exemple seule la ligne 003 doit rester car unique


'----------------
Sub jj()
ActiveSheet.AutoFilterMode = False
With Range("a1:c6")
.AutoFilter Field:=2, Criteria1:="<>aaa"

.Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.AutoFilterMode = False
End Sub
'-----------------------

--
Salutations
JJ


"" a écrit dans le message de news:
49400a76$0$22015$
Bonsoir,

Est il possible en VBA de supprimer tous les lignes qui sont en doublons
dans une colonne (B:B) et ne garder que les uniques.

Par exemple :

A B C
001 xxx toto
002 xxx lulu
003 aaa tata
004 xxx titi
005 bbb baba
006 bbb bibi


Dans cet exemple seule la ligne 003 doit rester car unique

Merci de votre aide

jyb













Avatar
j
Merci,
Puis je l'integrer dans une macro et comment car cela fait partie d'une
serie de traitement

D'avance Merci


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

Bonsoir,

Avec le filtre élaboré:
Critère: =NB.SI($B$2:$B$20;B2)=1

http://cjoint.com/?mkuOSOqf00

JB
http://boisgontierjacques.free.fr/

On 10 déc, 19:34, "" wrote:
Bonsoir,

Est il possible en VBA de supprimer tous les lignes qui sont en doublons
dans une colonne (B:B) et ne garder que les uniques.

Par exemple :

A B C
001 xxx toto
002 xxx lulu
003 aaa tata
004 xxx titi
005 bbb baba
006 bbb bibi

Dans cet exemple seule la ligne 003 doit rester car unique

Merci de votre aide

jyb


Avatar
JB
Faire de l'enreg automatique:

Range("A1:C10000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"F1:F2"), CopyToRange:=Range("I1"), Unique:úlse

http://cjoint.com/?mkwrEpdyuy

JB

On 10 déc, 19:54, JB wrote:
Bonsoir,

Avec le filtre élaboré:
Critère: =NB.SI($B$2:$B$20;B2)=1

http://cjoint.com/?mkuOSOqf00

JBhttp://boisgontierjacques.free.fr/

On 10 déc, 19:34, "" wrote:



> Bonsoir,

> Est il possible en VBA de supprimer tous les lignes qui sont en doublon s
> dans une colonne (B:B) et ne garder que les uniques.

> Par exemple :

> A                         B                        C
> 001                    xxx                     toto
> 002                    xxx                     lulu
> 003                    aaa                     tata
> 004                    xxx                     titi
> 005                    bbb                    baba
> 006                    bbb                     bibi

> Dans cet exemple seule la ligne 003 doit rester car unique

> Merci de votre aide

> jyb- Masquer le texte des messages précédents -

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