Question sur un Tri/Filtre en VBA

Bonjour a tous, :lol:

J'ai besoin d'aide pour un tri particulier dans un tableau excel , que je souhaiterai executer à travers une macro vba. Je m'y connais un peu en vba mais je ne trouve pas de solution la plus efficace pour ce problème.

je joint mon fichier afin que l'explication soit plus simple a comprendre mais je vais expliquer ma requete de maniere simplifiée :

Au sein d'un tableau, je souhaite trier une des lignes selon un certain critère (le critère est en fait le texte contenu dans la colonne C , appellée "Groupe").

Les lignes contenant la lettre "A" dans la colonne "Groupe" doivent être placées au dessus des lignes contenant la lettre "B" . Cependant, comme vous pourrez le voir dans mon tableau , il y a des sauts de lignes (separation des "tableaux" par pays) ... je souhaiterais conserver cette séparation de lignes entre chaque groupe de pays, ce qui rajoute une difficulté au Tri global..

Pour mieux comprendre le cas, veuillez ouvrir le fichier excel attaché, c'est plus simple à comprendre.

Merci d'avance pour toute aide !

Cordialement,
Dan

Bonjour,

Tu pourrais essayer ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Macro1()   'Partie tri selon pays et groupe   Range("a1").Activate Columns("A:E").Select Application.CutCopyMode = False Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Key2:=Range("C2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal   ' Insertion ligne entre pays différent   Range("d2").Select Do   pays1 = ActiveCell.Value ActiveCell.Offset(rowoffset:=1, columnoffset:=0).Activate pays2 = ActiveCell.Value If pays1 <> pays2 Then Selection.EntireRow.Insert If pays1 <> pays2 Then ActiveCell.Offset(rowoffset:=1, columnoffset:=0).Activate   Loop Until ActiveCell.Value = ""   End Sub

---