Erreur de programmation

Bonjour à tous,

J'aurais besoin de votre aide pour une partie d'un programme, je voudrais supprimer les lignes contenant l'année dans fichier joint.

Supprimer les lignes fonctionnait bien et la compilation ne signalait pas d'erreur , mais j'ai voulu ajouter une condition supplémentaire: je voudrais que le processus s'arrête après la dernière donnée.

Et là, il y a une erreur dans la macro et je ne la trouve pas.

Je joins le fichier en question.

Je vous remercie d'avance et bonne après-midi.

sylb

maintenant, cela fonctionne, mais je n'ai pas regardé pour la ligne de l'année

Sub Macro18()
     'Suppression des lignes contenant l'année
     Dim nlign As Variant
     Range("A1").Select
     nlign = Range("A1").End(xlDown).Address
     nligne = Range(nlign).Row
     Range("B1") = nlign

     Dim i     As Variant
     For i = nligne To 3 Step -6 'toujour du dernier au premier
          Range("A" & i).EntireRow.Delete
          Range("H" & i) = i
     Next i
End Sub

Sub Macro19()

     'Suppression des lignes contenant l'année
     Dim nlign, i
     nlign = Range("A" & Rows.Count).End(xlUp).Row
     Range("B1") = nlign

     For i = nlign - 4 To 3 Step -7          'toujour du dernier au premier et décaler 4 pour commencer
          Range("A" & i).EntireRow.Delete
          Range("H" & i) = i
     Next i
End Sub

Merci beaucoup BsAlv ,

Je n'avais pas pensé à la jouer à l'envers. J'essaye et je te rappelle.

sylb

Bonsoir BsAlv,

Désolé pour le retard je n'ai pu faire les essais de suite.

Ton code fonctionne parfaitement et je t'en remercie beaucoup.

Je vais donc fermer cette question mais je ne trouve toujours pas où il faut cocher pour signaler que la question est résolue.

Bonne nuit BsAlv.

sylb

bonsoir,

Je vais donc fermer cette question mais je ne trouve toujours pas où il faut cocher pour signaler que la question est résolue.

voir charte du forum, ici, la réponse se trouve dans le paragraphe :

Lorsque le problème est résolu