tri par ordre alphabetique

[luisf]

bonjour
après quelques recherche sur le forum j'ai réussi a trouver le code pour réaliser un tri par ordre alphabetique:

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

mon problème est que lorsque le tri se fait il doit monter la ligne complete du tableau et pas seulement la cellule.
je n'ai pas trouver comment modifier mon code actuel et je n'ai rien vu de similaire sur le forum

merci

 

[BOISGONTIER]

Re : tri par ordre alphabetique

Bonjour,

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

JB

 

[Guest]

Re : tri par ordre alphabetique

bonjour,

Essai avec ceci:

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

 

[luisf]

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

 

[luisf]

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??

 

[BOISGONTIER]

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

 

[Spitnolan08]

Re : tri par ordre alphabetique

Re,

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

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

par

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

Cordialement

 

[luisf]

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

 

[Spitnolan08]

Re : tri par ordre alphabetique

Re,
Et avec

 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

 

[luisf]

Re : tri par ordre alphabetique

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