Salut,
j'ai un souci avec une macro vba excel.
Je veux supprimer les doublons de mon fichier excel mais de la manière suivante:
je dois comparer les données des cellules d'une seule colonne, si 2 cellules sont identiques alors il doit me supprimer toute la ligne.
Voici mon code mais je n'arrive pas à l'éxécuter, à chaque fois que je l'éxecute, je suis obligé d'arrêter le processus excel pour continuer à travailler sur mon poste.
Je crois qu'il y a une erreur quelque part. Mais je n'arrive pas à la trouver. Est ce que quelqu'un peut m'aider?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub supprimeDoublons()
MaCellule= "B5"
Range(MaCellule).Select 
Activecell.currentregion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> "" 
If ActiveCell = donnee1 Then 
ActiveCell.EntireRow.Delete 
ActiveCell.Offset(-1, 0).Select 
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select 
End If 
Wend 
End Sub
Merci d'avance