tri alpha Rrrrrrrrrrrrr

[petchy]

bonsoir
j'ai un code pour trier,mais il ne fonctionne pas tous le temps
auriez vous une idée
Sub Trier()
Dim L As Integer
'tri les valeurs dans Database par ordre croissant
L = Sheets("Database").Range("A65536").End(xlUp).Row + 2

Range("A3:E" & L).Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess
End Sub

merci

 

[Paritec]

Re : tri alpha Rrrrrrrrrrrrr

Bonsoir Petchy bonsoir le forum
est-ce que les étiquettes de colonnes sont bien en A3 ?
c'est peut-être cela ton souci

a+
Papou

 

[petchy]

Re : tri alpha Rrrrrrrrrrrrr

Re
j'ai changer le code du tri et pour l'instant c'est bon
L = Sheets("Database").Range("A65536").End(xlUp).Row
Set Plage = Sheets("Database").Range("A3:E" & L)
Plage.Sort Worksheets("Database").Columns("A"), _
Order1:=xlAscending, Header:=xlGuess