VBA : Suppression lignes antérieures a une date

[emccbo]

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

 

[tototiti2008]

Re : VBA : Suppression lignes antérieures a une date

Bonjour emccbo,

ton x n'augmente jamais, comment veux-tu qu'il atteigne 300 ?
si ta ligne n'est pas supprimée, il faut augmenter to x (incrémenter)

 

[Catrice]

Re : VBA : Suppression lignes antérieures a une date

Hello,

Je crois qu'il faut boucler en remontant dans ton tableau car en faisant des Delete tu risques d'oublier des données.

Voir l'exemple joint.

 

[tototiti2008]

Re : VBA : Suppression lignes antérieures a une date

Bonjour Catrice,

s'il n'incrémente son x que s'il ne supprime pas la ligne, ça doit marcher.

 

[Catrice]

Re : VBA : Suppression lignes antérieures a une date

Ah oui,

comme ça alors ?

Sub Suppression_Lignes_Anterieures_Date3()
x = 5
Do Until x > 300
If Cells(x, 4).Value < Cells(1, 2).Value Then
Rows(x).Delete
Else
x = x + 1
End If
Loop
End Sub

 

[tototiti2008]

Re : VBA : Suppression lignes antérieures a une date

exactement, et si (comme tu l'as fait dans ton code) tu ajoute un test sur "la cellule est vide", ça marche trés bien.
maintenant je te concède que de bas en haut, c'est beaucoup plus simple à mettre en place et emccbo sera sans doute intéressé par cette autre méthode

 

[emccbo]

Re : VBA : Suppression lignes antérieures a une date

Merci de vos réponses rapides j'ai compris mon erreur, c'est pas évident de débuter.