Discussion :

[Danae123]

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

[Invité]

Bonjour Danae123,

Par exemple :

Code :

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

Sheets("Noeuds").Rows(i).Delete Shift:=xlUp