supprimer doublons / garder unique

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #18105441
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, ""
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


Jacky
Le #18105791
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


"" 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





j
Le #18106531
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"
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


"" 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









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

--
Salutations
JJ


"" 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"
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


"" 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













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

D'avance Merci


"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, ""
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


JB
Le #18106741
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
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, ""


> 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 -


Publicité
Poster une réponse
Anonyme