tri par ordre alphabetique

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Avril 2008

• #2

Re : tri par ordre alphabetique

Bonjour,

Code:

[A8].Sort Key1:=[A8], Order1:=xlAscending, Header:=xlGuess

JB

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Avril 2008

• #3

Re : tri par ordre alphabetique

bonjour,

Essai avec ceci:

Code:

Private Sub CommandButton1_Click()
Range([a8], [a8].End(xlDown)).[U][B]CurrentRegion[/B][/U].Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

A bientôt

 

Vote positif 0 Vote négatif

L

luisf

XLDnaute Occasionnel

• 15 Avril 2008

• #4

Re : tri par ordre alphabetique

Merci pour vos réponse

Hasco: ta solution fonctionne impeccable. merci pour la rapidité de ta réponse.

à bientôt pour d'autre question

 

Vote positif 0 Vote négatif

L

luisf

XLDnaute Occasionnel

• 15 Avril 2008

• #5

Re : tri par ordre alphabetique

je me suis réjoui trop vite
il ne prend pas en compte les dernières colonnes de mon tableau.

j'ai un tableau a 11 colonne A jusqu'à K le tri se fait bien sur les colonne de A à G. tu vois ce que sa peut être??

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Avril 2008

• #6

Re : tri par ordre alphabetique

Bonjour,

Il y a peut être une colonne vide (H)

[A8:K10000].Sort Key1:=[A8], Order1:=xlAscending, Header:=xlGuess

JB

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 16 Avril 2008

• #7

Re : tri par ordre alphabetique

Re,

Y a t il une colonne vide ?
Si oui remplacer (Non testé)

Code:

Range([a8], [a8].End(xlDown)).CurrentRegion

par

Code:

Range("A8:K" & [a8].End(xlDown))

Cordialement

 

Vote positif 0 Vote négatif

L

luisf

XLDnaute Occasionnel

• 16 Avril 2008

• #8

Re : tri par ordre alphabetique

merci pour vos réponse. j'avais bien retrouver le fil mais je n'arrivais pas à l'ouvrir mais ce coup ci ca à été.

il y a bien une colonne vide. en remplaçant avec ce que vous m'avez dit sa ne fonctionne pas. il y a une erreur de compilation

Private Sub CommandButton2_Click()
'trier par ordre alphabetique
Range("A8:K" & [a8].End(xlDown)).Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess,
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 16 Avril 2008

• #9

Re : tri par ordre alphabetique

Re,
Et avec

Code:

 Private Sub CommandButton2_Click()
'trier par ordre alphabetique
    Range("A8:K" & Range("A"&rows.count).End(xlup).row).Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess,
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Cordialement

 

Vote positif 0 Vote négatif

L

luisf

XLDnaute Occasionnel

• 16 Avril 2008

• #10

Re : tri par ordre alphabetique

sa a l'air de marcher avec ce code.
Merci

 

Vote positif 0 Vote négatif