Tri alphabétique sur 1 seule colonne : Résolu/Fermé

Question

Bonjour, 

Voila je vous explique. 

En feuille 2 j'ai un bouton. 
En feuille 1 j'ai un tableau.

La colonne A du tableau sur la feuille 1 contient des noms. 

Je voudrait qu'en cliquant sur le bouton se trouvant en feuille 2, cela tri automatiquement la colonne A du Tableau se trouvant feuille 1 par ordre alphabétique.

Sachant qu'il faudrait pouvoir commencer en A2 et que des noms sont rajouté au fur et à mesure donc ne pas précisé la cellule ou s'arrêter.
Voila si quelqu'un à une solution je suis preneur. 

Merci

ccm81 · Answer

Bonjour

Un petit exemple

Const lideb = 2
Const coatrier = 1
Const F1 = "Feuil1"

Private Sub btTrier_Click()
Dim plage As Range, lifin As Long
With Sheets(F1)
  lifin = .Cells(Rows.Count, coatrier).End(xlUp).Row
  Set plage = .Range(.Cells(lideb, coatrier), .Cells(lifin, coatrier))
  plage.Sort .Cells(lideb, coatrier), header:=xlGuess
End With
End Sub
Cdlmnt

cyrga11 · Answer

Merci ccm81

j'ai juste remplacé sur la ligne :

Const F1 = "Feuil1"

Feuil1 par le nom de la feuille 

Const F1 = "Clients"

Et cela fonctionne parfaitement, merci beaucoup. Sujet résolu :)

Tri alphabétique sur 1 seule colonne :

2 réponses

Discussions similaires