Discussion :

[arthour973]

Bonjour à tous,

Toujours aussi nul en VBA (j'avance quand même un peu).

L'écriture (automatique) de la macro me donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Rows("2:10000").Select
    ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Add Key:=Range("D2:D10000"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Smatr").Sort
        .SetRange Range("A2:P10000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

"Smatr" est le nom de l'une des feuilles dans mon classeur et j'aime le changer pour que la macro s'éxécute sur n'importe quelle feuille de mon classeur.

Un grand merci pour votre aide.

[Philippe Tulliez]

Bonjour,
Tu peux toujours utiliser une procédure toute faite que j'ai écrite et que j'ai mise en contribution.
Le lien se trouve en dessous de ma signature et il y a un fichier téléchargeable avec des exemples.

[sophieceuzin]

Bonjour,

Si la BD commence en A1 et s'il y a une ligne de titres, cette macro tri la feuille active.

Code :

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

1
2
3
4
 
Sub tri()
   [A1].Sort key1:=[A1], Order1:=xlAscending, Header:=xlYes
End Sub

Si la BD n'est pas dans la feuille active

Code :

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

1
2
3
4
5
 
Sub tri()
   Set f = Sheets("BD")      ' feuille à trier
   f.[A1].Sort key1:=f.[A1], Order1:=xlAscending, Header:=xlYes
End Sub

Ceuzin

[arthour973]

Pour Philippe

j'ai téléchargé votre fichier et je vais voir ce soir si j'y trouve mon bonheur.
Un grand merci.

Pour Sophie
Un grand merci aussi mais je n'ai pas bien compris.

1- Les tris que j'ai à faire peuvent porter sur :
- des lignes complètes,
- des lignes incomplètes ( de A4 à G1000, par exemple)
ça peut commencer sur Z ou G etc...

2-je ne vois pas où "inclure" vos lignes d'écritures dans ma ou mes macros de tris ?

Enfin, dans mon classeur, j'ai par exemple les feuilles suivantes :

- Smatr (ma feuille matrice qui reste ma base)
- S1 ou S2 etc. qui seront mes feuilles de stockage d'infos après exécution de mes macros.

Mon souhait : je voudrais que cette macro s'éxécute sur la feuille active ( S1, S2 etc.

Encore un grand merci pour votre aide.
Lionel,