Suppression doublons avec critère sur le début de la ligne

[Fred51]

Bonjour,

débutant en VB, je dois faire une macro qui me supprime certaines lignes doublons.
Mon fichier ne comporte qu'une seule colonne, chaque cellule contenant une chaîne de caractères, que l'on distingue grâce au premier caractère : 1, 2 ou 3 :

10|reference|...|...
10|reference|...|...
10|reference|...|...
20|reference|...|...
20|reference|...|...
30|reference|...|...
30|reference|...|...
30|reference|...|...
30|reference|...|...
[...]

Il faudrait que je puisse supprimer tous les doublons pour les lignes commençant par 1 ou 2 uniquement. J'ai essayé avec le filtre élaboré, ça marche si l'on sélectionne à la main uniquement les lignes désirées bien sûr, mais j'aimerais pouvoir faire ça de manière automatisée.

Si quelqu'un a une idée... Merci ! 🙂

 

[job75]

Re : Suppression doublons avec critère sur le début de la ligne

Bonjour Fred, le forum,

Avec une macro, ce n'est guère compliqué (on suppose les données en colonne A et triées) :

Sub SupDoublon()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If UCase(Cells(i, 1)) = UCase(Cells(i - 1, 1)) And Left(Cells(i, 1), 1) < "3" And Left(Cells(i, 1), 1) > "0" Then Rows(i).Delete
Next
End Sub

Edit : j'ai mis UCase pour le cas où l'on ne tient pas compte de la casse (majuscules ou minuscules)

A+

 

[Fred51]

Re : Suppression doublons avec critère sur le début de la ligne

Merci pour ta réponse ^^

En fait, mon fichier d'entrée n'est pas trié, et il ne doit pas l'être. Ces données sont destinées à être intégrées ligne par ligne dans une appli en vue de créer des objets, et l'ordre de création est très important.

J'avais pensé récupérer les lignes 30 de la feuille principale F1, les copier dans une nouvelle feuille F2, puis revenir à F1, supprimer les lignes 30, faire sur ce qui reste une extraction sans doublon, copier le résultat dans une troisième feuille F3, et concaténer à la fin de F3 les lignes 30 sauvegardées dans F2.

J'ai réussi à coder certains de ces traitements, mais à mon avis je suis en train de faire une usine à gaz alors que je suis sûr qu'il y a bien plus simple...

 

[job75]

Re : Suppression doublons avec critère sur le début de la ligne

Re,

Si le fichier ne peut pas être trié :

Sub SupDoublon()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If IsNumeric(Application.Match(Cells(i, 1), Range(Cells(i - 1, 1), Cells(1, 1)), 0)) And Left(Cells(i, 1), 1) < "3" And Left(Cells(i, 1), 1) > "0" Then Rows(i).Delete
Next
End Sub

Application.Match (EQUIV) ne tient pas compte de la casse.

Edit : il ne faut pas qu'il y ait les caractères ~, * ou ?, sinon il faut compliquer un peu la macro :

Sub SupDoublon()
Dim i As Long, txt$
For i = Range("A65536").End(xlUp).Row To 2 Step -1
txt = Replace(Cells(i, 1), "~", "~~")
txt = Replace(txt, "*", "~*")
txt = Replace(txt, "?", "~?")
If IsNumeric(Application.Match(txt, Range(Cells(i - 1, 1), Cells(1, 1)), 0)) And Left(txt, 1) < "3" And Left(txt, 1) > "0" Then Rows(i).Delete
Next
End Sub

A+

 

[Fred51]

Re : Suppression doublons avec critère sur le début de la ligne

Merci, j'ai testé ta première macro et ça a marché nikel. 😉

Il est possible en effet que dans une cellule on retrouve le caractère * dans la chaîne de caractères.
Je viens de tester ta seconde requête, et les doublons contenant * ne sont pas supprimés. 😕

 

[job75]

Re : Suppression doublons avec critère sur le début de la ligne

Re,

J'avais traité le tildé en dernier, il faut bien sûr le traiter en premier, voir la macro précédente modifiée.

On peut aussi utiliser Application.CountIf (NB.SI), pour lequel le tildé n'a pas besoin d'être traité :

Sub SupDoublon()
Dim i As Long, txt$
For i = Range("A65536").End(xlUp).Row To 2 Step -1
txt = Replace(Cells(i, 1), "*", "~*")
txt = Replace(txt, "?", "~?")
If Application.CountIf(Range(Cells(i - 1, 1), Cells(1, 1)), txt) And Left(txt, 1) < "3" And Left(txt, 1) > "0" Then Rows(i).Delete
Next
End Sub

A+

 

[Fred51]

Re : Suppression doublons avec critère sur le début de la ligne

Je viens de tester, ça a l'air de très bien marcher. Je ferai d'autres tests ce soir.
Merci beaucoup pour ton aide !

Fred

 

[Swannyusa]

Re : Suppression doublons avec critère sur le début de la ligne

Bonjour Fred, le forum,

Avec une macro, ce n'est guère compliqué (on suppose les données en colonne A et triées) :

Sub SupDoublon()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If UCase(Cells(i, 1)) = UCase(Cells(i - 1, 1)) And Left(Cells(i, 1), 1) < "3" And Left(Cells(i, 1), 1) > "0" Then Rows(i).Delete
Next
End Sub

Edit : j'ai mis UCase pour le cas où l'on ne tient pas compte de la casse (majuscules ou minuscules)

A+

Bonjour,

Merci pour vos macros.
Je souhaiterais faire la même chose mais sans mettre de critères, simplement supprimer les casses identiques car j'ai des données du genre "FFHSJDF51" "UHJEF9ZE65"...

Merci de votre aide