Bonjour,
J'ai un problème de suppression de doublons. J'ai vu que plusieurs sujets sur les doublons ont déjà été posté mais je ne pense pas avoir vu un cas identique au mien.
Je dispose d'un tableau de plusieurs colonnes (12). Je n'utilise que les 3 premières colonnes pour détecter des doublons. Donc si deux lignes ont leurs trois premieres cellules identiques elles sont considérées comme des doublons.
Cependant ce ne sont pas de réelles doublons car à part les trois premieres cellules elles peuvent avoir d'autres cellules différentes...
Mon tableau est trié et deux lignes considérées comme doublons sont forcément à la suite.
Ce que je voudrais c'est pouvoir supprimer la premiere ligne en doublon et pas la seconde.
Par exemple si j'utilise l'outil de suppression de doublons d'excel il me supprimera automatiquement la seconde ligne en doublon et pas la première, or je veux justement supprimer la premiere ligne doublon et conserver la seconde.
J'ai essayé de faire une macro (ci-dessous) mais étant complétement débutant elle ne marche pas .
Sub suppr_doublons()
Sheets("Base de Données").Select
For i = 1 To Range("Tableau112").Rows.Count - 1 Step 1
If Range("Tableau112").[SumProduct(($A$1:$A&"i"=$A&"i+1")*($B$1:$B&"i"=$B&"i+1")*($C$1:$C&"i"=$C&"i+1")*($A&"i+1"<>"") )] > 1 _
Then Range("Tableau112").Cells(i - 1, 1).EntireRow.Delete
Next i
End Sub
J'ai voulu utiliser sumproduct pour détecter les doublons et cells(i-1,1).entirerow.delete pour supprimer le premier doublon.
Je crois que c'est surtout mon "if" qui ne marche pas du tout.
D'avance merci pour tout éclaircissement !
J'ai un problème de suppression de doublons. J'ai vu que plusieurs sujets sur les doublons ont déjà été posté mais je ne pense pas avoir vu un cas identique au mien.
Je dispose d'un tableau de plusieurs colonnes (12). Je n'utilise que les 3 premières colonnes pour détecter des doublons. Donc si deux lignes ont leurs trois premieres cellules identiques elles sont considérées comme des doublons.
Cependant ce ne sont pas de réelles doublons car à part les trois premieres cellules elles peuvent avoir d'autres cellules différentes...
Mon tableau est trié et deux lignes considérées comme doublons sont forcément à la suite.
Ce que je voudrais c'est pouvoir supprimer la premiere ligne en doublon et pas la seconde.
Par exemple si j'utilise l'outil de suppression de doublons d'excel il me supprimera automatiquement la seconde ligne en doublon et pas la première, or je veux justement supprimer la premiere ligne doublon et conserver la seconde.
J'ai essayé de faire une macro (ci-dessous) mais étant complétement débutant elle ne marche pas .
Sub suppr_doublons()
Sheets("Base de Données").Select
For i = 1 To Range("Tableau112").Rows.Count - 1 Step 1
If Range("Tableau112").[SumProduct(($A$1:$A&"i"=$A&"i+1")*($B$1:$B&"i"=$B&"i+1")*($C$1:$C&"i"=$C&"i+1")*($A&"i+1"<>"") )] > 1 _
Then Range("Tableau112").Cells(i - 1, 1).EntireRow.Delete
Next i
End Sub
J'ai voulu utiliser sumproduct pour détecter les doublons et cells(i-1,1).entirerow.delete pour supprimer le premier doublon.
Je crois que c'est surtout mon "if" qui ne marche pas du tout.
D'avance merci pour tout éclaircissement !