Tri en vba automatique colonne

[tinet]

bonjour le forum,

j'ai trouvé cette formule pour trier automatiquement les colonnes, mais je voudrais que le tri se fasse à partir de la ligne deux et pas sur toute la colonne.

Sub Trier()
On Error Resume Next
'for i = 1 to 1 pour 1 colonne,for i = 1 to 2 pour 2 colonnes, etc
For i = 1 To 2
Sheets("liste").Columns(i).Sort Key1:=Cells(1, i), Order1:=xlAscending
Next i
End Sub


Merci pour votre aide

 

[Papou-net]

Re : Tri en vba automatique colonne

Bonjour tinet,

Ajoute le paramètre Header à la commande Sort :

Sub Trier()
On Error Resume Next
'for i = 1 to 1 pour 1 colonne,for i = 1 to 2 pour 2 colonnes, etc
    For i = 1 To 2
        Sheets("liste").Columns(i).Sort Key1:=Cells(1, i), Header:=xlGuess, Order1:=xlAscending
    Next i
End Sub

Cordialement.

 

[tinet]

Re : Tri en vba automatique colonne

Bonjour Papou net.

Merci