Discussion :

[S.Mag]

Bonjour,

je souhaite supprimer des lignes avec la condition suivante:

Si une cellule de la colonne C est vide, alors supprimer la ligne entière où la cellule vide se trouve.

Voici mon code : sachant que je n'ai pas d'erreur de bug mais j'ai pas de modification: pas de suppression

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
Sub deleteBlank()
Dim orig As String, wb As Workbook
Dim correct
 
Set wb = Workbooks.Open("Z:\VBA\copy.xlsx")
LastRow = wb.Sheets("Feuil1").Range("C" & Rows.count).End(xlUp).Row
For i = 1 To LastRow
 
If IsEmpty(wb.Sheets("Feuil1").Cells(i, 3)) = True Then
wb.Sheets("Feuil1").Cells(i, 3).EntireRow.Delete
 
End If
Next i
MsgBox ("task complete!!!")
End Sub

Pouvez vous me donner des propositions, des solutions oubien d'autres méthodes?

merci beaucoup pour l'aide.

Cheers!!

[jerome.vaussenat]

Salut,

La méthode la plus simple pour faire cela est de partir de la fin du tableau.
Sinon, quand tu supprimes des lignes, le reste du tableau remonte et ton compteur, lui il continue de descendre.

Je te conseille de commencer par modifier cette ligne de ta boucle :

Code :

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

For i = LastRow To 1 Step -1

cela va faire varier ton compteur de la fin de ton tableau jusqu'en haut. C'est le step -1 qui gère la remontée.

En espérant que cela fera avancer ton projet.

[S.Mag]

Non ceci ne donne aucun résultat
pas d'erreur mais aucune modification!

[BENNASR]

Bonjour
essaye avec ça :

Code :

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

1
2
3
4
5
6
7
8
Sub EntireRow()
 
     For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
             If Cells(i, 3) = "" Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
    End Sub

[S.Mag]

Bonjour
essaye avec ça :

Code :

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

1
2
3
4
5
6
7
8
Sub EntireRow()
 
     For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
             If Cells(i, 3) = "" Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
    End Sub

Mille Merci!! problème résolu!

[patricktoulon]

bonjour boucle a l'envers (de la lastrow a la 1) step -1

car d'es la première suppression le i de ta boucle ne correspond plus au i de la ligne

tu comprends ???

[S.Mag]

bonjour boucle a l'envers (de la lastrow a la 1) step -1

car d'es la première suppression le i de ta boucle ne correspond plus au i de la ligne

tu comprends ???

Oui j'ai bien compris maintenant! merci beaucoup