Discussion :

[gigalia]

Bonjour,

dans le code ci dessous, il ne prend qu'une ligne sur 2. Pourquoi?

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = 1 To Range("A65536").End(xlUp).Row
 
If Range("A" & i).Value = 3 Then
 
Range("A" & i).EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2)
Range("A" & i).EntireRow.Delete
 
End If
 
Next i

[aalex_38]

Bonjour,

Il existe de nombreux exemples pour ce problème récurrent.

Lorsque l'on fait un delete il faut parcourir les lignes du bas vers le haut

Code :

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

1
2
3
For i =Range("A65536").End(xlUp).Row to 1 step -1 
'...
Next i

[pijaku]

Bonjour,
Il ne prends qu'une ligne sur 2 car à chaque itération de ta boucle tu supprimes une ligne :

Code :

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

Range("A" & i).EntireRow.Delete

Code :

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

1
2
3
For i = 1 To 10
Range("A" & i).EntireRow.Delete
Next

Lors de la suppression de la ligne 1 (i=1), la ligne 2 devient la ligne 1, la ligne 3 devient la ligne 2.
La boucle continue, i = 2 traite la ligne 2 (qui était en fait la ligne 3 au départ)...

Pour contourner ce souci, la boucle doit commencer à la fin et boucler avec Step -1 :

Code :

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

1
2
3
For i = 10 To 1 Step - 1
Range("A" & i).EntireRow.Delete
Next

[jfontaine]

Bonjour,

Si tu supprimes des lignes, excel décalera les lignes vers le haut.
Il faut donc a chaque suppression reculer de 1 la variable i

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = 1 To Range("A65536").End(xlUp).Row
 
If Range("A" & i).Value = 3 Then
 
Range("A" & i).EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2)
Range("A" & i).EntireRow.Delete
i=i-1
End If
 
Next i

[gigalia]

Bonjour,

Oui c'est clair maintenant. De plus j'avais déja eu le cas que je suis bête.

Merci à tous.