Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel suppression des lignes en doublon

suppression des lignes en doublon

2 réponses
Avatar
Wolverine
Salut,

Pourriez-vous me donner la soluce, j'ai une feuille sur laquelle on trouve
des infos redondante, comment garder une ligne et supprimer le reste ?

titre1 titre2 titre3 titre4 titre5 titre6 titre7 titre8 titre9 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Signaler un problème avec ce contenu

2 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
Jean-François Aubert
Salut Wolverine,

Sub yy()

x = [a65536].End(xlUp).Row

For Li = x To 2 Step -1
For col = 1 To 9

'Si le troisième argument est 1,
'une comparaison textuelle s'effectue.
'Paris <> PariS
'Si cet argument est 0 ou s'il est omis,
'c 'est une comparaison binaire qui est réalisée
'Paris = PariS

z = StrComp(Cells(Li, col), Cells(Li - 1, col), 0)
If z = 0 Then
cnt = cnt + 1
End If
Next col

If cnt = 9 Then
Cells(Li, col).EntireRow.Delete
End If
cnt = 0
Next Li

End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Wolverine" a écrit dans le message de
news:
Salut,

Pourriez-vous me donner la soluce, j'ai une feuille sur laquelle on trouve
des infos redondante, comment garder une ligne et supprimer le reste ?

titre1 titre2 titre3 titre4 titre5 titre6 titre7 titre8 titre9 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...





Avatar
Philippe.R
Bonjour David,
En variante à la solution de Jean François, il y a le filtre élaboré, extraction sans doublon.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Wolverine" a écrit dans le message de
news:
Salut,

Pourriez-vous me donner la soluce, j'ai une feuille sur laquelle on trouve
des infos redondante, comment garder une ligne et supprimer le reste ?

titre1 titre2 titre3 titre4 titre5 titre6 titre7 titre8 titre9 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...
Paris 008 1 213 545 0.5% 0.2% 21.2 54 ...