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

Doublons

7 réponses
Avatar
rthompson
Bonsoir à toutes et tous


Je crois que celle-ci est facile

Et je n'ai rien trouvé sur Excelabo

Y a-t-il quelqu'un qui a un truc macro pour vérifie les lignes d'une feuille
et qui supprime d'office toute la ligne si elle est indentique à une autre


Par exemple

1 a b c d e
2 2 3 4 2 5
3 2 5 4 2 5
4 2 1 1 2 5
5 2 4 2 2 5
6 2 4 7 6 5
7 2 3 4 2 5

Dans cet exemple la ligne 7 serait supprimée parce qu'elle est indentique
à la ligne 2

A bientôt et merci

Rex
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
Daniel.C
Bonjour.
Utilise la fonction "extraction sans doublon" du filtre élaboré.
Cordialement.
Daniel

Bonsoir à toutes et tous


Je crois que celle-ci est facile

Et je n'ai rien trouvé sur Excelabo

Y a-t-il quelqu'un qui a un truc macro pour vérifie les lignes d'une feuille
et qui supprime d'office toute la ligne si elle est indentique à une autre


Par exemple

1 a b c d e
2 2 3 4 2 5
3 2 5 4 2 5
4 2 1 1 2 5
5 2 4 2 2 5
6 2 4 7 6 5
7 2 3 4 2 5

Dans cet exemple la ligne 7 serait supprimée parce qu'elle est indentique
à la ligne 2

A bientôt et merci

Rex


Avatar
rthompson
Bonjour Daniel et merci

Oui je l'avais oublié celui là

Mais comment peut-on ajouter cela dans la macro

J'ai fait un enregistrement puis j'ai ajouter


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


en bout de code

Mais il ne fait pas la suppression des doublons

T'as une idée????????

A bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Bonjour.
Utilise la fonction "extraction sans doublon" du filtre élaboré.
Cordialement.
Daniel

Bonsoir à toutes et tous


Je crois que celle-ci est facile

Et je n'ai rien trouvé sur Excelabo

Y a-t-il quelqu'un qui a un truc macro pour vérifie les lignes d'une
feuille
et qui supprime d'office toute la ligne si elle est indentique à une
autre


Par exemple

1 a b c d e
2 2 3 4 2 5
3 2 5 4 2 5
4 2 1 1 2 5
5 2 4 2 2 5
6 2 4 7 6 5
7 2 3 4 2 5

Dans cet exemple la ligne 7 serait supprimée parce qu'elle est indentique
à la ligne 2

A bientôt et merci

Rex






Avatar
Daniel.C
Non, il les masque. Pour obtenir la liste sans doublons, il faut copier
le résultat du filtre dans un autre emplacement :
Range("A1:K13").AdvancedFilter Action:=xlFilterInPlace, Unique:=True, _
, CopyToRange:=Range("L1")

Daniel


Bonjour Daniel et merci

Oui je l'avais oublié celui là

Mais comment peut-on ajouter cela dans la macro

J'ai fait un enregistrement puis j'ai ajouter


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


en bout de code

Mais il ne fait pas la suppression des doublons

T'as une idée????????

A bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Bonjour.
Utilise la fonction "extraction sans doublon" du filtre élaboré.
Cordialement.
Daniel

Bonsoir à toutes et tous


Je crois que celle-ci est facile

Et je n'ai rien trouvé sur Excelabo

Y a-t-il quelqu'un qui a un truc macro pour vérifie les lignes d'une
feuille
et qui supprime d'office toute la ligne si elle est indentique à une autre


Par exemple

1 a b c d e
2 2 3 4 2 5
3 2 5 4 2 5
4 2 1 1 2 5
5 2 4 2 2 5
6 2 4 7 6 5
7 2 3 4 2 5

Dans cet exemple la ligne 7 serait supprimée parce qu'elle est indentique
à la ligne 2

A bientôt et merci

Rex








Avatar
Jacky
Bonsoir,

Ceci peut-être
'----------------
Sub jj3()
For i = 1 To [a56536].End(3).Row
For j = [a56536].End(3).Row To i + 1 Step -1
If Cells(i, 1) & Cells(i, 2) & Cells(i, 3) & Cells(i, 4) & Cells(i, 5) = _
Cells(j, 1) & Cells(j, 2) & Cells(j, 3) & Cells(j, 4) & Cells(j, 5) Then
Rows(j).Delete
Next
Next
End Sub
'---------------------
--
Salutations
JJ


"rthompson" a écrit dans le message de
news:
Bonsoir à toutes et tous


Je crois que celle-ci est facile

Et je n'ai rien trouvé sur Excelabo

Y a-t-il quelqu'un qui a un truc macro pour vérifie les lignes d'une
feuille
et qui supprime d'office toute la ligne si elle est indentique à une autre


Par exemple

1 a b c d e
2 2 3 4 2 5
3 2 5 4 2 5
4 2 1 1 2 5
5 2 4 2 2 5
6 2 4 7 6 5
7 2 3 4 2 5

Dans cet exemple la ligne 7 serait supprimée parce qu'elle est indentique
à la ligne 2

A bientôt et merci

Rex





Avatar
rthompson
Bonsoir et merci

Mais comment fait-on alors?????


En fin de macro je voudrais qu'il me supprime tous les doublons purement et
simplement

REX




"Daniel.C" a écrit dans le message de news:
eny%
Non, il les masque. Pour obtenir la liste sans doublons, il faut copier le
résultat du filtre dans un autre emplacement :
Range("A1:K13").AdvancedFilter Action:=xlFilterInPlace, Unique:=True, _
, CopyToRange:=Range("L1")

Daniel


Bonjour Daniel et merci

Oui je l'avais oublié celui là

Mais comment peut-on ajouter cela dans la macro

J'ai fait un enregistrement puis j'ai ajouter


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


en bout de code

Mais il ne fait pas la suppression des doublons

T'as une idée????????

A bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Bonjour.
Utilise la fonction "extraction sans doublon" du filtre élaboré.
Cordialement.
Daniel

Bonsoir à toutes et tous


Je crois que celle-ci est facile

Et je n'ai rien trouvé sur Excelabo

Y a-t-il quelqu'un qui a un truc macro pour vérifie les lignes d'une
feuille
et qui supprime d'office toute la ligne si elle est indentique à une
autre


Par exemple

1 a b c d e
2 2 3 4 2 5
3 2 5 4 2 5
4 2 1 1 2 5
5 2 4 2 2 5
6 2 4 7 6 5
7 2 3 4 2 5

Dans cet exemple la ligne 7 serait supprimée parce qu'elle est
indentique
à la ligne 2

A bientôt et merci

Rex












Avatar
Daniel.C
[A1:K13].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"L1"), Unique:=True
[A1:K13].ClearContents
Range("L1:V" & [V65000].End(xlUp).Row).Cut
[A1].Select
ActiveSheet.Paste

Daniel

Bonsoir et merci

Mais comment fait-on alors?????


En fin de macro je voudrais qu'il me supprime tous les doublons purement et
simplement

REX




"Daniel.C" a écrit dans le message de news:
eny%
Non, il les masque. Pour obtenir la liste sans doublons, il faut copier le
résultat du filtre dans un autre emplacement :
Range("A1:K13").AdvancedFilter Action:=xlFilterInPlace, Unique:=True, _
, CopyToRange:=Range("L1")

Daniel


Bonjour Daniel et merci

Oui je l'avais oublié celui là

Mais comment peut-on ajouter cela dans la macro

J'ai fait un enregistrement puis j'ai ajouter


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


en bout de code

Mais il ne fait pas la suppression des doublons

T'as une idée????????

A bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Bonjour.
Utilise la fonction "extraction sans doublon" du filtre élaboré.
Cordialement.
Daniel

Bonsoir à toutes et tous


Je crois que celle-ci est facile

Et je n'ai rien trouvé sur Excelabo

Y a-t-il quelqu'un qui a un truc macro pour vérifie les lignes d'une
feuille
et qui supprime d'office toute la ligne si elle est indentique à une
autre


Par exemple

1 a b c d e
2 2 3 4 2 5
3 2 5 4 2 5
4 2 1 1 2 5
5 2 4 2 2 5
6 2 4 7 6 5
7 2 3 4 2 5

Dans cet exemple la ligne 7 serait supprimée parce qu'elle est
indentique
à la ligne 2

A bientôt et merci

Rex














Avatar
rthompson
Bonjour et merci

Cela fonctionne impeccablement

Un grand merci et à bientôt

Rex

PS
Reste à voir si demain au boulot quand je le metterai en fin de l'autre
macro si tout ira aussi bien :-)))

"Daniel.C" a écrit dans le message de news:
%23$$FH$
[A1:K13].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"L1"), Unique:=True
[A1:K13].ClearContents
Range("L1:V" & [V65000].End(xlUp).Row).Cut
[A1].Select
ActiveSheet.Paste

Daniel

Bonsoir et merci

Mais comment fait-on alors?????


En fin de macro je voudrais qu'il me supprime tous les doublons purement
et simplement

REX




"Daniel.C" a écrit dans le message de news:
eny%
Non, il les masque. Pour obtenir la liste sans doublons, il faut copier
le résultat du filtre dans un autre emplacement :
Range("A1:K13").AdvancedFilter Action:=xlFilterInPlace, Unique:=True, _
, CopyToRange:=Range("L1")

Daniel


Bonjour Daniel et merci

Oui je l'avais oublié celui là

Mais comment peut-on ajouter cela dans la macro

J'ai fait un enregistrement puis j'ai ajouter


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


en bout de code

Mais il ne fait pas la suppression des doublons

T'as une idée????????

A bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Bonjour.
Utilise la fonction "extraction sans doublon" du filtre élaboré.
Cordialement.
Daniel

Bonsoir à toutes et tous


Je crois que celle-ci est facile

Et je n'ai rien trouvé sur Excelabo

Y a-t-il quelqu'un qui a un truc macro pour vérifie les lignes d'une
feuille
et qui supprime d'office toute la ligne si elle est indentique à une
autre


Par exemple

1 a b c d e
2 2 3 4 2 5
3 2 5 4 2 5
4 2 1 1 2 5
5 2 4 2 2 5
6 2 4 7 6 5
7 2 3 4 2 5

Dans cet exemple la ligne 7 serait supprimée parce qu'elle est
indentique
à la ligne 2

A bientôt et merci

Rex