Discussion :

[ivanG]

Bonjour,

Pour un filtrage de doublon j'aimerais supprimer les données les moins récentes.
J'ai un tableau qui comporte une colonne N° de série et une Avancement réparation (taches restantes à effectuer).
Ca ressemble à ca :
001 / 3
001 / 1
002 / 2
002 / 2
003 / 4
003 / 3

Dans mon code VBA, pour le filtrage et la suppression des doublons, j'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ligne = 7
Do While Cells(ligne, rColInter) <> ""
If Cells(ligne, rColInter) = Cells(ligne + 1, rColInter) Then Rows(ligne).Delete

Mais j'aimerais rajouter le code qui permet de dire : Supprimer le doublon qui a le nb de taches restantes le plus grand (par exemple sur le N°001, supprimer la ligne avec 001 / 3).

Avez-vous une idée de comment je pourrais m'y prendre ? svp

Merci d'avance !

[Marc-L]

Bonjour,

l'idée serait de trier les deux colonnes puis de remonter de la dernière ligne du tableau
en comparant la colonne A avec la ligne précédente pour la supprimer si égalité …

A lire …

[Menhir]

Avant de lancer ta recherche de doublons, commence par faire un tri sur tes données pour être sûr que les doublons sont des lignes successives.

Un piège à éviter : quand tu scrutes tes lignes, si tu trouves un doublon et que tu supprimes la ligne, n'incrémente pas ta variable qui désigne la ligne, sinon tu va sauter des lignes.

[Marc-L]

Exemple dans la discussion supprimer doublon sous condition parmi d'autres …

[ivanG]

Je suis sur une piste. Il me reste pas grand chose pour y arriver.

Pour l'instant j'ai trié mes données en ordre décroissant puis j'ai commencé le code pour qu'il me supprime les lignes avec un état d'avancement le plus grand.

Ca ressemble à ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
lig = 8
Do While Cells(lig, rColInter) <> ""

   If Cells(lig, rColInter) = Cells(lig + 1, rColInter) Then Rows(lig).Delete
  
lig = lig + 1
Loop

Par contre l'écriture rouge ci-dessus me pose problème. Quand je lance le code, il saute des lignes.... Et je n'arrive pas à trouver une solution.

Est-ce que vous avez une idée pour résoudre ce problème ?

Merci pour vos réponses !

[Marc-L]

Cette ligne ne veut rien dire ! Il faut inclure l'incrémentation du compteur dans les If précédents (si logique bonne) …

Mais via une boucle en remontant de la dernière ligne il n'y en aurait pas besoin comme dans mon code en lien …

[Menhir]

Je ne comprends pas pourquoi tu as mis deux de test en ajoutant des conditions opposées dans la seconde partie du AND.
Je na sais pas exactement ce que tu veux faire mais je doute que ce soit bon.

Tu pourrais expliquer ?

Une chose est sûre en tout cas, ta ligne rouge ne convient pas du tout.
Pour que ça marche, il faudrait que ton Ligne = Ligne + 1 soit dans le "else" du "if" qui définit ta condition pour supprimer une ligne.
Mais il faudrait que tu répondes à ma question pour que je puisse te donner le bon code.