Suppression doublon multi-colonnes VBA
Bonjour,
Je commence à cerner un peu le vba mais des fois je m'y perds un peu.
Le but de ce petit script est d'éliminer les doublons possibles dans une feuille.
Le tableau est trié comme il faut donc ce n'est pas un problème.
Dans la colonne A et D j ai des données alpha numerique
Dans la colonne B j ai des donnnées mais de type "chaine de caractère" avec espace, et symbole comme des $ et autres.
Je fais déjà des comparaisons par colonne A puis D puis B ce que je souhaite faire.
Mais ca ne me donne rien de cohérent.
Des lignes sont supprimées mais pas forcement celle que je souhaite.
J ai lu quelques discussions sur le sujet sur le forum mais je n ai pas trouvé mon bonheur.🙁
Je vous joins mon code pour savoir ce que j ai fait et pour que vous puisssiez m indiquer mon(mes) erreur(s).
Sub delete_doublon()
Sheets("COR PAR SSA").Select
pos_dans_feuille = Sheets("COR PAR SSA").Range("A65536").End(xlUp).Row
For i = 2 To pos_dans_feuille
If Range("A" & i).Value = Range("A" & i + 1).Value Then
If Range("D" & i).Value = Range("D" & i + 1).Value Then
If Range("B" & i).Value = Range("B" & i + 1).Value Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
End If
End If
End If
Next
End Sub
D'avance Merci
Bonjour,
Je commence à cerner un peu le vba mais des fois je m'y perds un peu.
Le but de ce petit script est d'éliminer les doublons possibles dans une feuille.
Le tableau est trié comme il faut donc ce n'est pas un problème.
Dans la colonne A et D j ai des données alpha numerique
Dans la colonne B j ai des donnnées mais de type "chaine de caractère" avec espace, et symbole comme des $ et autres.
Je fais déjà des comparaisons par colonne A puis D puis B ce que je souhaite faire.
Mais ca ne me donne rien de cohérent.
Des lignes sont supprimées mais pas forcement celle que je souhaite.
J ai lu quelques discussions sur le sujet sur le forum mais je n ai pas trouvé mon bonheur.🙁
Je vous joins mon code pour savoir ce que j ai fait et pour que vous puisssiez m indiquer mon(mes) erreur(s).
Sub delete_doublon()
Sheets("COR PAR SSA").Select
pos_dans_feuille = Sheets("COR PAR SSA").Range("A65536").End(xlUp).Row
For i = 2 To pos_dans_feuille
If Range("A" & i).Value = Range("A" & i + 1).Value Then
If Range("D" & i).Value = Range("D" & i + 1).Value Then
If Range("B" & i).Value = Range("B" & i + 1).Value Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
End If
End If
End If
Next
End Sub
D'avance Merci
Dernière édition: