Discussion :

[DoVBnet]

Bonjour a tous,

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

[QuestVba]

Bonjour,

Tu pourrais essayer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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