classement automatique croissant

  • Initiateur de la discussion Initiateur de la discussion loulou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

loulou

Guest
bonjour, voila je cherche un moyen pour classer automatiquement les cellules d'une colonne par odre croissant sans avoir à cliké sur la barre d'outils
 
Bonjour Loulou,

Tu obtiendras le résultat escompté en codant l'évènement Change de l'objet WorkBook de la façon suivante :

===============================================

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim Rng As Range

Sht = 'Feuil1' '<<<< A Adapter
Col = 'A' '<<<< A Adapter

Set Rng = Range(Sht & '!' & Col & ':' & Col)

If Sh.Name = Sht And Not Intersect(Target, Rng) Is Nothing Then _
Rng.Sort Key1:=Rng.Cells(1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

================================================

Pense à adapter les paramètres 'Sht' et 'Col' en indiquant respectivement la feuille et la colonne à trier automatiquement.

Attention, comme tu l'as demandé, seule la colonne sera trieé, si tu veux trier un tableau ou les lignes entiière en prenant cette colonne pour clé, il faudra modifier légèrement cette macro. Fais moi signe.

Bye.


🙂 Omicron
 
Bonjour Gérard,

je cherchais justement un moyen de faire des tris automatiques et j'ai en partie la soluce.
Maintenant, j'ai mon tableau au milieu de ma feuille et je ne voudrais trier que celui-ci sans que cela touche le reste.
Quels sont les paramêtres à changer dans la macro?

Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
288
Réponses
5
Affichages
306
Réponses
2
Affichages
212
Réponses
16
Affichages
504
Réponses
4
Affichages
344
Réponses
1
Affichages
234
Réponses
18
Affichages
516
Retour