Discussion :

[Bemirdor]

Bonjour, après plusieurs semaines sans être venus vers vous j'ai de nouveau besoin d'aide. Voilà mon problème. Sur un formulaire, j'ai ajouté un bouton qui permet la suppression des doublons. Avec l'assistant de création de code, j'ai repris la fonctionnalité d'Excel. Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim derniereLigne1 As Long
 
derniereLigne1 = Worksheets("Prospects").Range("B" & Rows.Count).End(xlUp).Row
 
Sheets("Prospects").Range("$A$1:$Q" & derniereLigne1).RemoveDuplicates Columns:=10, Header:= _
    xlYes

Le code fonctionne parfaitement seulement, la colonne 10 sur laquelle j'effectue cette suppression de doublons possède beaucoup de trous. J'aimerai donc que la suppression des doublons se fasse uniquement sur les cellules étant non vides. Merci d'avance.

[Menhir]

Une solution simple serait de commencer par faire un tri sur tes données en utilisant la colonne 10 comme clé de tri.
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)
Ainsi, toutes les cellules vides de cette colonnes seraient regroupées à la fin.

Tu relances l'instruction qui recherche la dernière ligne mais avec un Range("J" pour ne sélectionner que les cellules ayant un contenu dans cette colonne.
Ainsi, quand le RemoveDuplicate est lancé, il ne tient pas compte des cellules vides de la colonne J et tu obtiens ce que tu souhaites.

[Bemirdor]

Merci beaucoup Menhir, cela marche parfaitement !