Demande de macro vba pour supprimer des lignes sur base d'une condition

Salut

Dans un premier temps et en tenant compte uniquement de la condition sur M, je serais parti sur un tableau structuré. Ca aurait été simple... Déjà, sans VBA, tu aurais pu par exemple filtrer tes lignes sur celles différentes de 1 puis les sélectionner et les supprimer (attention, ça supprime les lignes entières de la feuille). Pour un "One shot", c'est amplement suffisant.

Si vraiment on veut du VBA: Sur base d'un tableau structuré nommé Tableau1, on utilise le code suivant, qui remonte les lignes et supprime celles pour lesquelles la valeur dans la colonne Nature est >1. On remarque que l'utilisation des références structurées permet de pointer facilement vers le tableau et de supprimer tout aussi facilement les lignes uniquement pour les colonnes du tableau structuré.
Code:

1 2 3 4 5 6 7 Sub test() Dim i As Long For i = Range("tableau1").Rows.Count To 1 Step -1 If Range("tableau1[Nature]")(i).Value > 1 Then Range("tableau1").ListObject.ListRows(i).Delete Next End Sub
Normalement, dans un tableau structuré (= table de données), l'ordre des données n'a pas d'importance. Ici, ta règle sur les H vient contredire cela. Cette règle pour la suppression des lignes si H_x = H_x-1 est à mon avis imprécise. On se souvient que lorsque l'on supprime des lignes sous condition, il faut remonter du bas du tableau. Si tu as H_x = H_x-1 = H_x-2 et que tu te contentes de ta règle, tu vas supprimer H_x et H_x-1 et tu seras dans l'impossibilité de tester H_x-1 = H_x-2... Pour les mêmes raisons et quelle que soit la règle retenue pour H, il faudra tester la condition sur les H avant la condition sur M, car si tu supprimes M_x, tu seras dans l'impossibilité de tester si H_x = H_x-1

Dans les faits, je voudrais savoir si c'est pour un exercice d'apprentissage.

PS: Normalement, on montre le code qu'on a essayé, histoire que l'on voit que tu t'impliques dans la démarche ;)