Bonjour à tous,
Je suis entrain de créer un programme pour supprimer les lignes où les cellules de la colonne J valent "1" ou "2" ou "3" .... "6".
Autrement dit, j'aimerais ne garder que les lignes où les valeurs des cellules J sont 0 ou 7 ou 8 ou 9.
J'ai fait ce programme :
Sub Macro21()
'
Macro21 Macro
'
Dim nombredelignes As Integer
nombredelignes = Range("B" & Rows.Count).End(xlUp).Row
'Insertion de la colonne en A
Worksheets("Feuil1").Columns(1).Insert
'On insere la date du jour dans la colonne A
For i = 1 To nombredelignes
Cells(i, 1).Value = "=today()"
If Cells(i, 10) = 1 Or Cells(i, 10) = 2 Or Cells(i, 10) = 3 Or Cells(i, 10) = 4 Or Cells(i, 10) = 5 Or Cells(i, 10) = 6 Then
Cells(i, 10).EntireRow.Delete
End If
Next i
End Sub
Cependant, il ne supprime qu'un chiffre sur deux et je ne comprends pas pourquoi.
De plus, si j'ai des milliers de lignes, pensez vous qu'il est plus rapide de faire comme cela ou de filtrer et de supprimer toutes les lignes présentes.
Merci d'avance pour votre aide. Si je n'ai pas été assez clair n'hésitez pas à me le dire.
Simon