Discussion :

[yannjuve]

Bonjour,

Je vous écris car j'ai besoin d'aide à propos d'un code vba que je tente d'élaborer. Celui-ci est très simple, il vise à parcourir deux colonnes distinctes et supprimer la ligne entière quand une cellule contient la valeur "X".

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As Integer
Dim LastRow As Long
    LastRow = 8000
    For i = 1 To LastRow
        If Cells(i, 82).Value = "X" Then
            Cells(i, 82).EntireRow.Delete
        ElseIf Cells(i, 97).Value = "X" Then
            Cells(i, 97).EntireRow.Delete
        End If
    Next i

Bizarrement, le code semble fonctionner en deux temps. Je dois l'exécuter deux fois pour qu'il supprime correctement toutes les lignes où un "X" apparaît.

Sauriez-vous m'indiquer l'erreur?

Merci d'avance!

[Menhir]

Quand on veut insérer ou supprimer des lignes, il faut aller de la dernière à la première et non l'inverse, sinon on loupe des lignes.
Essaye de réfléchir un peu à l’algorithmique et tu comprendras sans doute pourquoi.

Code :

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

1
2
3
4
    Dim i As Integer
    For i = Cells(Rows.Count, 82).End(xlUp).Row To 1 Step -1
        If Cells(i, 82).Value = "X" Or Cells(i, 97).Value = "X" Then Rows(i).Delete
    Next i

[yannjuve]

Quand on veut insérer ou supprimer des lignes, il faut aller de la dernière à la première et non l'inverse, sinon on loupe des lignes.
Essaye de réfléchir un peu à l’algorithmique et tu comprendras sans doute pourquoi.

Code :

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

1
2
3
4
    Dim i As Integer
    For i = Cells(Rows.Count, 82).End(xlUp).Row To 1 Step -1
        If Cells(i, 82).Value = "X" Or Cells(i, 97).Value = "X" Then Rows(i).Delete
    Next i

Merci Menhir pour cette solution. En y réfléchissant, ça parait maintenant logique en effet!

@Alex020181: intéressant. En effet je cherche à alléger au maximum la macro. La solution de transposer le tableau mérite d'être étudiée. Pour le moment je vais me contenter de supprimer les lignes, car j'ai des résultats financiers qui sont calculés avec l'aide d'une formule dont la plage de données est ajustée automatiquement quand on supprime les lignes. Ce ne sera pas le cas si je copie-colle une partie de ma table de données. Mais je vais garder ça dans un coin de ma tête.

Merci en tout cas pour votre aide

[ARTURO83]

Bonjour,

Autre solution, en filtrant les colonnes 82 et 97 à tour de rôle et supprimer toutes les lignes contenant un X

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Application.ScreenUpdating = False
    DerLig = 1000
    DerCol = 100
    On Error Resume Next
    ActiveSheet.AutoFilterMode = False
    Rows(1).AutoFilter
    ActiveSheet.Range(Cells(1, "A"), Cells(DerLig, DerCol)).AutoFilter Field:=82, Criteria1:="X"
    ActiveSheet.Rows("2:" & DerLig).SpecialCells(xlCellTypeVisible).Delete
    Worksheets("Feuil1").ShowAllData
    ActiveSheet.Range(Cells(1, "A"), Cells(DerLig, DerCol)).AutoFilter Field:=97, Criteria1:="X"
    ActiveSheet.Rows("2:" & DerLig).SpecialCells(xlCellTypeVisible).Delete
    ActiveSheet.AutoFilterMode = False

Remplacez DerLig, DerCol et Feuil1, par les vraies valeurs

Cdlt

[Alex020181]

Bonjour,

D'accord avec la solution de Menhir; pour parcourir les lignes d'une liste et supprimer des lignes il faut partir du bas sinon comme les lignes se retrouvent renumérotées après une suppression ET qu'en même temps ton index augmente alors tu te retrouves avec une ligne (celle juste en dessous ta suppression) non analysée.

Par contre quand Excel supprime des lignes cela lui prend du temps. Je te conseille donc de parcourir ta feuille de haut en bas en enregistrant tes valeurs dans un tableau si la ligne ne contient pas de "X" puis d'effacer les valeurs de ta feuille (avec clear) et de transposer le tableau des lignes récupérées. Le résultat utilisateur sera le même mais le temps de traitement est nettement amélioré.

L'une comme l'autre arrive au même résultat. A toi de voir si le temps de traitement te convient.