Tri alphabétique sur 1 seule colonne :

Résolu/Fermé
cyrga11 Messages postés 48 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 28 novembre 2014 - 28 mars 2014 à 15:19
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 29 mars 2014 à 09:07
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
A voir également:

2 réponses

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
28 mars 2014 à 15:43
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
0
cyrga11 Messages postés 48 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 28 novembre 2014
28 mars 2014 à 16:22
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 :)
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
29 mars 2014 à 09:07
C'est exactement ce qu'il fallait faire. Les constantes sont à adapter à ta config, les placer en dehors de la procédure évite de toucher au code de la procédure

Bon week end
0