Comment adapter une macro aux données qui changent

Bonjour,

je vous explique mon soucis. j'ai développé une macro avec l'enregistreur de macro.

cette macro permet de traiter un fichier c'est a a dire filtré des colonne supprimer des ligne mettre des cellule en rouge! mais tout ça avec des condition. pour le moment elle marche très bien.

Mais cette macro sera utilisé tout les jours ce qui fait j'en suis sûr qu’elle va pas fonctionner demain sur le nouveau fichier qu'elle va traiter, elle va généré des erreurs. car les données vont changer

cependant j'ai envie que quelqu'un m’aide à la corrigé histoire quelle fonctionne chaque jour.

je vous remercie d'avance pour votre aide.

ci-dessous la macro avec l'extension .xla

16macro-beatrice.zip (17.28 Ko)

et le fichier qu'elle va traiter mais les donnée vont changer chaque jour.

Bonjour

Un essai à tester.

J'ai repris ta macro et neutralisé les instructions devenues inutiles.

Je te laisse le soin de les supprimer.

Cela te convient-il ?

Bye !

Bonjour,

d'abord je te remercie pour ta réponse.

a vrai dire dans ton code il me fait pas tout au juste, j'ai décidé de garder mon code mais il y'a un seule bout de code qui ne marche pas a 100% c'est la partie 2 et 3

 '2-gorigine traçon = garder que les cellules qui commance par 87
      ActiveSheet.Range("$A$1:$O$217").AutoFilter Field:=7, Criteria1:=Array( _
        "71 | ", _
        "80 | ", _
        "88 | "), Operator:=xlFilterValues
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Delete
    Selection.AutoFilter

    '3- destination trançon = garder que les cellules qui commance par 87
      ActiveSheet.Range("$A$1:$O$205").AutoFilter Field:=9, Criteria1:=Array( _
        "80 | ", _
        "88 | ", _
        "88 | "), Operator:=xlFilterValues
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Delete
    Selection.AutoFilter

dans ce code je veux qu'il me supprime toutes les lignes où les cellules ne commencent pas par 87. en gros je veux garder que les lignes qui commence par 87. si tu peux me régler ce problème, ça serai vraiment très gentil. je pense a mettre des IF mais je n'y arrive pas. merci d'avance

Bonjour

Nouvelle version

Bye !

Yo, super, ça marche nickel. Merci beaucoup

Rechercher des sujets similaires à "comment adapter macro donnees qui changent"