Tri automatique

Bonjour le Forum,

J'ai divers 20 feuilles dans un classeur avec une centaine de noms en vrac sur chacune , serait-il possible de faire automatiquement un tri par ordre alphabétique à l'aide d'une macro, cela me ferait un gain de temps énorme.

Par avance, merci pour vos solutions.

Bien cordialement.

ericp

Bonjour,

il faut que toutes tes feuilles soient identiques dans la présentation.

Quelles sont les plages à réorganiser ? (début et fin de tableau)

Bonjour Xmenpl,

Merci de me donner un grand coup de main.

Les feuilles sont identiques, les colonnes vont de A:AC et le tri en colonne F2:F200.

Encore mille merci Xmenpl.

Bien cordialement.

Re,

Si tu prévois d'avoir d'avantage de ligne alors faudra remplacer le 200 par un plus grand nombre.

Sub Macro1()
'
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
    Ws.Select

    Range("A1:AC200").Select
    Ws.Sort.SortFields.Clear
    Ws.Sort.SortFields.Add Key:=Range("F2:F200") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Ws.Sort
        .SetRange Range("A1:AC200")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next Ws

End Sub

Re,

Je te remercie Xmenpl,

C'est excellent, quel temps je vais gagner en ne faisant plus toutes ces manips.

Un grand grand merci à toi.

Bien cordialement.

ericp

En fait ce n'est pas super compliqué.

Pour information aux visiteurs du forum le principe pour une macro à lancer sur toutes les pages

Sub Macro1()
' Indication de la variable feuille  "Ws"
Dim Ws As Worksheet
Application.ScreenUpdating = False

For Each Ws In Worksheets  ' Ici on indique que la macro sera effectuée pour toutes les feuilles
    Ws.Select

'**********************************************
'Ici on indique les codes macro que l'on souhaite appliquer, 
' en pensant que chaque ligne qui contient un nom de feuille  ( Worksheet("Feuille1")  devra être remplacer
'par la variable Ws

'**********************************************

Next Ws   ' le next indique qu'on passe aux feuilles suivantes

End Sub