Discussion :

[perrinem]

Bonjour a tous

Je souhaite réaliser un tri par ordre alphabétique d'une plage de cellules en fonction de ma colonne A.
Au début je ne devais trier qu'une certaine plage : des lignes A9 a A19 en fonction de la colonne A. Voici donc la macro que j'avais enregistre :

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
Sub Tri()
'
' Tri Macro
'
 
'
    Rows("9:19").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range( _
        "A9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A9:K19")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Cependant, je vais devoir a présent insérer assez souvent des lignes entre A9 et A19 et donc ma macro n'est plus valide. Je voudrais répéter cette opération un peu plus bas dans la colonne également.

Exemple : Lignes fixes / Lignes susceptibles de changer du a des insertions

A1 : TITRE 1
A2 : valeur 1
A3 : valeur 3
A4 : valeur 4
A5 : TITRE 2
A6 : valeur 5
A7 : valeur 6
A8 : TITRE 3
A9 : valeur 7
A10 : valeur 8

J'avais donc pense a utiliser la formule INDIRECT pour trier les valeurs comprises entre TITRE 1 et TITRE 2 puis entre TITRE 2 et TITRE 3 puis entre TITRE 3 et rien mais je ne sais pas du tout comment faire...

Si je n'ai pas été assez claire, n'hésitez pas a me poser des questions.

Merci beaucoup !!!!!

[patricktoulon]

il te faut dans ce cas las la determiner les plages
pour cela tu pourrais peut être commencer par chercher"TITRE" avec find et find next (avec pour argument "xlpart")(F1 te montre un exemple tout prêt )

entre chaque find c'est une plage a trier

[perrinem]

Merci beaucoup pour cette reponse tres rapide j'ai compris le but mais malheureusement je n'ai aucune idee de comment ecrire un tel code...

[patricktoulon]

avec find et find next c'est assez complexe avec les xlprevious et xlnext et after etc.....

je te propose une simple boucle

analyse bien le code

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
Sub test()
    With Worksheets(1)' sheets a adapter 
    Set plage = .Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)' plage a adapter 
    For Each cel In plage.Cells
    If cel Like "*TITRE*" Then
    If i > 0 Then listeplage = listeplage & cel.Offset(-1, 0).Address & ","
    listeplage = listeplage & cel.Offset(1, 0).Address & ":"
       i = i + 1
        End If
    Next
    listeplage = listeplage & Split(plage.Address, ":")(1)
    End With
plage_a_trier = Split(listeplage, ",")
MsgBox plage_a_trier(0) 't'affiche dans un message l'adresse de la première plage a trier (0,1,2,3,4,etc......)
'bref plage_a_trier(X) est une addresse de plage a trier
End Sub

[perrinem]

Merci j'ai essaye de comprendre au mieux mais en vain...

J'ai remplace Worksheets(1) par le nom de ma feuille, a1:a par ma plage de cellules a trier et TITRE par le nom de la cellule supérieure.

Mais que dois-je mettre dans listeplage et plage_a_trier ? Y a-t-il autre chose a remplacer dans ce code ?

Merci

[patricktoulon]

il ne devrait avoir rien d'autre a remplacer

apres pour faire tes tri
tu fait

Code :

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

1
2
3
4
5
with sheets("lenom que tu veux")
 for i =0 to ubound(plage_a_trier)
.range(plage_a_trier(i)).sort.....'ou se que tu veux comme operation 
next 
end with

[perrinem]

Bon bah je suis nulle

Une fois le code enregistré, lorsque j'appuie sur le bouton que j'ai inséré pour activer le code, il me met un message avec le numéro d'une cellule...

Ou dois-je mettre le 2e code que tu viens de me donner aussi stp ?

Ci-joint un exemple de mon problème

[patricktoulon]

ton fichier est inaccessible !!!!

[perrinem]

Mieux ?