ketzakoalt
XLDnaute Nouveau
Bonjour,
j'ai créé ce code pour supprimer les lignes avec cellules non vides dans les colonnes H, I et K.(à partir de la 2ème ligne)
Quand je le teste ça me supprime uniquement les lignes paires.
Savez-vous pourquoi ?
Et SVP, comment remplacer 20 par "derniere ligne non vide".
Public Sub supprimer()
Dim i As Integer
Sheets("espace").Select
For i = 2 To 20
If (Cells(i, 8) <> "") And (Cells(i, 9) <> "") And (Cells(i, 11) <> "") Then Rows(i).Delete
Next i
End Sub
merci pour votre aide
j'ai créé ce code pour supprimer les lignes avec cellules non vides dans les colonnes H, I et K.(à partir de la 2ème ligne)
Quand je le teste ça me supprime uniquement les lignes paires.
Savez-vous pourquoi ?
Et SVP, comment remplacer 20 par "derniere ligne non vide".
Public Sub supprimer()
Dim i As Integer
Sheets("espace").Select
For i = 2 To 20
If (Cells(i, 8) <> "") And (Cells(i, 9) <> "") And (Cells(i, 11) <> "") Then Rows(i).Delete
Next i
End Sub
merci pour votre aide