Bonjour
J'aimerais savoir comment "améliorer" la fonction .RemoveDuplicates :
- j'ai une feuille avec environ 20.000 lignes et 100 colonnes
- la première colonne contient un numéro unique (il n'y a pas de doublon dans cette colonne), en ordre croissant
- je considère comme doublons les lignes ayant les mêmes données dans les colonnes 2 et 6
Cette fonction en VBA me permet donc de nettoyer la feuille en supprimant tous les doublons :
Range("A1", "CW15000").RemoveDuplicates Columns:=Array(2, 6)
Cette fonction a surtout l'avantage d'être très rapide comparée à d'autres solutions essayées.
Mais en cas de doublons, cette fonction garde systématiquement la première ligne ; par exemple, si les lignes 4, 6 et 12 sont des doublons, les lignes 6 et 12 sont supprimées.
Mes desiratas :
- faire la même chose mais en gardant la dernière ligne (dans l'exemple précédent, garder la ligne 12 et supprimer les lignes 4 et 6)
- si possible, copier les lignes supprimées dans une autre feuille avant de les supprimer.
Dans le classeur joint (j'ai juste copié quelques lignes), le but serait :
- de copier la ligne 3 dans Feuil2
- puis de supprimer la ligne 3.
Merci pour vos propositions !
J'aimerais savoir comment "améliorer" la fonction .RemoveDuplicates :
- j'ai une feuille avec environ 20.000 lignes et 100 colonnes
- la première colonne contient un numéro unique (il n'y a pas de doublon dans cette colonne), en ordre croissant
- je considère comme doublons les lignes ayant les mêmes données dans les colonnes 2 et 6
Cette fonction en VBA me permet donc de nettoyer la feuille en supprimant tous les doublons :
Range("A1", "CW15000").RemoveDuplicates Columns:=Array(2, 6)
Cette fonction a surtout l'avantage d'être très rapide comparée à d'autres solutions essayées.
Mais en cas de doublons, cette fonction garde systématiquement la première ligne ; par exemple, si les lignes 4, 6 et 12 sont des doublons, les lignes 6 et 12 sont supprimées.
Mes desiratas :
- faire la même chose mais en gardant la dernière ligne (dans l'exemple précédent, garder la ligne 12 et supprimer les lignes 4 et 6)
- si possible, copier les lignes supprimées dans une autre feuille avant de les supprimer.
Dans le classeur joint (j'ai juste copié quelques lignes), le but serait :
- de copier la ligne 3 dans Feuil2
- puis de supprimer la ligne 3.
Merci pour vos propositions !
