Tri ordre alphabetique

[obyone]

bonjour,

j'ai crée un userform, et je souhaiterais que lorsque je clique sur ajouter la textbox s'ajoute à la liste puis la liste se trie automatiquement par ordre alphabetique

voici le debut de mon code

Private Sub Ajouter_Click()
ligne = Sheets("donnees").[d65000].End(xlUp).Row + 1
Sheets("donnees").Cells(ligne, 4) = Me.Tb_noms
Unload Me
End Sub


pouvez vous m'aider pour le tri
cordialement

Obyone

 

[Gexk5]

Re : Tri ordre alphabetique

Re le forum, essaiavec ce code

Private Sub Ajouter_Click()
ligne = Sheets("donnees").[d65000].End(xlUp).Row + 1
Sheets("donnees").Cells(ligne, 4) = Me.Tb_noms
sheets('donnes").select
with sheets("donnes").Range("A2").sort Key1=:Range("A2"), Order1:=xlAscending,Header:=xlGuess
end with
Unload Me
End Sub

Ce code tri en ordre a partir de la colonne A ligne 2, a toi d'adapter a ce que tu veux
@+

 

[obyone]

Re : Tri ordre alphabetique

bonjour, j'ai travaillé un peu mon code et cela donne ceci:

Private Sub Ajouter_Click()
ligne = Sheets("donnees").[c65000].End(xlUp).Row + 1

Sheets("donnees").Cells(ligne, 3) = Me.Tb_noms

Worksheets("donnees").Range("c1").Sort Key1:=Worksheets("donnees").Columns("c"), Header:=xlGuess

End Sub

mais cela me tri toutes les colonnes, je voudrais trier seulement la colonne C
avez vous une idée SVP

cordialement

 

[skoobi]

Re : Tri ordre alphabetique

Bonjour,

adapte comme ceci:

Worksheets("donnees").[COLOR=blue][B]Columns("c")[/B][/COLOR][COLOR=black].[/COLOR]Sort Key1:=Worksheets("donnees").Columns("c"), Header:=xlGuess

 

[obyone]

Re : Tri ordre alphabetique

bonjour,

ok pour le tri il prend bien en compte que la colonnne C mais il me tri l'entete avec le reste pourtant header=:xlGuess ca sert à ca non?

 

[skoobi]

Re : Tri ordre alphabetique

Re,

xlGuess laisse le choix à excel.
Avec xlYes ça devrait le faire.

 

[obyone]

Re : Tri ordre alphabetique

super
ca fonctionne
merci
@+