E
emccbo
Guest
Bonjour,
Je débute avec le vba d'excel et je souhaiterais supprimer les lignes antérieures a une date spécifiée dans un tableau. Voici ce que j'ai fait :
Sub Suppression_Lignes_Anterieures_Date()
Dim x As Long
x = 5 'mes données commencent à la ligne 5
Do Until x = 300 'mon tableau fait 300 lignes
If Cells(x, 4).Value < Cells(1, 2).Value Then
Rows(x).Delete
End If
Loop
End Sub
Le résultat est encourageant vu que ça supprime effectivement les premières lignes répondant au critère mais dés que j'arrive sur une ligne n'y répondant pas (donc que je souhaite conserver) il bloque sur le End If et ne traite pas les lignes suivantes.
Quelqu'un voit il d'où peut venir le problème ?
Merci de votre aide
Je débute avec le vba d'excel et je souhaiterais supprimer les lignes antérieures a une date spécifiée dans un tableau. Voici ce que j'ai fait :
Sub Suppression_Lignes_Anterieures_Date()
Dim x As Long
x = 5 'mes données commencent à la ligne 5
Do Until x = 300 'mon tableau fait 300 lignes
If Cells(x, 4).Value < Cells(1, 2).Value Then
Rows(x).Delete
End If
Loop
End Sub
Le résultat est encourageant vu que ça supprime effectivement les premières lignes répondant au critère mais dés que j'arrive sur une ligne n'y répondant pas (donc que je souhaite conserver) il bloque sur le End If et ne traite pas les lignes suivantes.
Quelqu'un voit il d'où peut venir le problème ?
Merci de votre aide