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 :
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.
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
Partager