Discussion :

[drthodt]

Bonjour à tous,
la macro ci-dessous parcourt ligne par ligne ma feuille, et m'efface toutes les lignes pour lesquelles la cellule de la colonne B est différente de la colonne A.

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
Sub ajout()
Dim NoLigneF2, DerniereLigneF2 As Long
Dim FL2 As Worksheet
 
Set FL2 = ThisWorkbook.ActiveSheet
 
DerniereLigneF2 = FL2.Range("A65535").End(xlUp).Row
 
    'Suppression des lignes "vides"
    For NoLigneF2 = 1 To DerniereLigneF2
        If Cells(NoLigneF2, 2) <> Cells(NoLigneF2, 1) Then
            Cells(NoLigneF2, 2).EntireRow.Select
            Selection.Delete Shift:=xlUp
        End If
    Next
End Sub

Problème: je dois l'éxécuter plusieurs fois car à chaque fois ele m'"oublie" certaines lignes qu'elle devrait effacer; après 4 ou 5 exécutions (sur un total de 100 lignes) j'obtiens le résultat final que je désirerai initalement.
Ma question: d'ou vient le problème?
Comment arriver à un traitement en l'exécutant une unique fois?
Merci d'avance pour vos réponses,
M

[ucfoutu]

Bonjour,

On ne saurait le dire assez :

Lorsque l'on supprime des lignes dans une boucle, on bouleverse bien évidemment les numéros de lignes à traiter.

Solution : commencer par la dernière ligne et remonter vers la première (de cette façon : les numéros des lignes restant à traiter restent identiques, ce qui n'est pas le cas dans le sens inverse)...

donc :

Code :

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

For NoLigneF2 = DerniereLigneF2 to 1 step -1

[Lou Pitchoun]

Salut,

En ayant simplement survolé ton code, l'erreur vient simplement du fait que si tu supprime ou pas la ligne, tu incrémentes quand même.
Ce qui fait que tu laisses des lignes que tu devrais supprimer si 2 lignes (ou plus) à supprimer se suivent.

De tête, si tu supprimes une ligne, tu fais remonter les autres.

Ex :
Tu dois supprimer la ligne 4 et 5
Tu tombes sur la 4.
Tu supprimes.
La 5 deviens la 4.
Mais ton compteur passe à 5 et loupe la ligne 4 à supprimer !!!

Donc :

Code :

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

1
2
3
4
5
6
7
    For NoLigneF2 = 1 To DerniereLigneF2
        If Cells(NoLigneF2, 2) <> Cells(NoLigneF2, 1) Then
            Cells(NoLigneF2, 2).EntireRow.Select
            Selection.Delete Shift:=xlUp
            NoLigneF2 = NoLigneF2 - 1
        End If
    Next

Ou comme le dit ucfoutu: tu commences par la fin.

[drthodt]

Merci pour vos réponses!
A+,
M