Macro tri selectif

[AURACLE68]

Bonjour à tous amis d'Excel 🙄

Je sollicite votre pour m'aider à ... me faciliter la vie avec un fichier.

Le but : arriver à reporter les données d'une feuille à une autre selon certaines conditions.

Sur le fichier exemple que je joins les onglets en rouge sont les onglets => résultats attendus.

Si on prends l'exemple de mon fichier.
=> tous les types 7 (colonne AI) ayant "Paris ou Colmar" sont automatiquement envoyé sur l'onglet correspondant en ayant pris soins de trier le TYPE6 (AH) et ôter les "MMP" du type 0 (colonne AB")

Cette logique est identique pour les onglets "Bordeaux" et "Marseille"

J'espére avoir bien expliquer mon cas, en tout cas je me tiens à votre disposition, et remercie gracieusement les personnes pouvant m'aider à construire le VBA qui va vraiment m'aider.

 

[AURACLE68]

Re : Macro tri selectif

Double zero

J'ai un soucis, je viens donc de retranscrire ta macro sur mon fichier source et il 'm'indique ceci

Erreur d'exécution '1004':
Cette opération requiert que les cellules fusionnées soient de taille identiques.

"ensuite je clique sur débogage"

For Each o In Worksheets
If o.Name <> "EXTRACTION" Then o.[A2].CurrentRegion.Sort Key1:=o.[f2], Order1:=xlDescending, Header:=xlGuess
Next

JE pense savoir pourquoi j'ai ce message, en effet, dans le fichier source j'ai plusieurs onglets, comment peut remedier à ca et permettre au fichier de tri que les onglets concernés

 

[_Thierry]

Re : Macro tri selectif

Bonsoir le Fil

Si ce n'est que ceci, tu peux modifier comme suit le Code de DoubleZero

For Each o In Worksheets
    Select Case o.Name
    Case "EXTRACTION", "TAGADA", "TsoinTsoin"  '<= feuilles à ignorer par le tri    
    Case Else
         o.[A2].CurrentRegion.Sort Key1:=o.[f2], Order1:=xlDescending, Header:=xlGuess
    End Select
Next

Bonne soirée
@+Thierry