Bonjour,
Help les copains
Si d'autres membres souhaitent m'aider lol, je suis un peu perdu depuis 3 jours sur ce code.
Je souhaite supprimer une ligne en doublon si elle répond à des critères déterminés dans deux autres colonne.
Alors le fichier fait 2000 lignes environ.
la règle est :
test de la colonne 75.
- si doublon on supprime la ligne avec N dans une colonne 24.
- si doublon on supprime la ligne avec FRMRS dans la colonne 25.
Macro qui fonctionne bien sur 50 lignes sauf que lorsqu'on le lance sur les 2000 elle plante.
Je ne comprend pas trop pourquoi, sauf qu'elle ne tient pas un grand nombre de ligne
A noter le numéro de colonne change par rapport à l'énoncé, mais c’était juste pour le test.
Sub clearV2()
Dim rebalayer As Boolean, numLigne As Long, nbLignes As Long, i As Long
rebalayer = True
While rebalayer
nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
rebalayer = False
For numLigne = 2 To nbLignes
For i = 2 To nbLignes
If numLigne <> i Then
If Cells(numLigne, 17) = Cells(i, 17) Then
If Cells(numLigne, 9) = "N" Or Cells(numLigne, 10) = "FRMRS" Then
Rows(numLigne).EntireRow.Delete
rebalayer = True
GoTo rebalayer
End If
End If
End If
Next i
Next numLigne
rebalayer:
Wend
End Sub
Merci d'avance si vous avez des proposition.
le fichier exemple : Pour tester sur le nombre total prendre l'onglet "test_all a checker" onglet en rouge.
Merci d'avance,
Bonne journée.