Bonjour,

quelle est la commande pour supprimer une ligne ?
Je veux enlever des doublons, et rien de ce qui est mis en exemple sur ce forum ne fonctionne !

Mon code :

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
16
17
18
Sub EffacerDoublon()
'on enlève les doublons
Dim i As Integer
Dim IDNoeud As Double
 
i = 2
IDNoeud = 1
 
While (IDNoeud <> "")
 
IDNoeud = Worksheets("Noeuds").Range("A" & i)
 
If Worksheets("Noeuds").Range("A" & i) = Worksheets("Noeuds").Range("A" & i - 1) Then
 
Row(i).delete (ICI CA PLANTE)
 
i = i + 1
Wend
Merci pour votre aide
Danae