Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[VBA] Tri simple Excel...

  • Initiateur de la discussion Initiateur de la discussion Brozad
  • 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 !

B

Brozad

Guest
Bonjour,

Je cherche à effectuer un tri simple sur une plage de données variables.

Je me suis inspiré de ce que proposais le développeur automatique d'Excel mais ça ne marche pas 🙁

Le nombre de ligne varie mais le nombre de colonne reste fixe.

Code:
Range("I1").Select
Selection.End(xlDown).Offset(0, 0).Select
a = ActiveCell.Row      'Définition nbre lignes

'Tri croissant codes concatener   

    ActiveWorkbook.Worksheets("journaux_banque").Sort.SortFields.Add Key:=Range( _
        "I2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("journaux_banque").Sort
        .SetRange Range("A" & 2, "I" & a)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

L'aide de quelqu'un serait la bienvenue, je ne maîtrise pas le tri en VBA et je ne trouve rien qui me paraît clair...

Merci d'avance.
 
Re : [VBA] Tri simple Excel...

Bonjour Brozard et le forum,

Loin d'être un expert, mais pour sélectionner jusque la dernières lignes remplie, c'est ainsi 🙂

Code:
Range("A1", Range("b65536").End(xlUp)).Select

Donc ceci signifie, sélection à partir de A1 jusque la dernière ligne remplie en colonne B.
Après vous placez le code de tri.
Voilà si cela peut vous aider. 🙂
 
Re : [VBA] Tri simple Excel...

Bonjour,

Dans le fichier joint une macro qui effectue un tri sur l'ensemble de la base (meme si elle évolue) en prenant comme critère la colonne C

Code:
Sub Test()
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("C2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'Tri selon la colonne C
    .SetRange Range("A1").CurrentRegion 'CurrentRegion prend en compte l'ensemble des cellules adjacentes à la Cellule A1
    .Header = xlYes 'Ne trie pas les entetes
    .Apply
End With
End Sub
 

Pièces jointes

- 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
XL 2021 listbox
Réponses
18
Affichages
733
Réponses
17
Affichages
1 K
Réponses
4
Affichages
729
B
  • Question Question
Réponses
2
Affichages
776
Benjy51190
B
Réponses
6
Affichages
1 K
Réponses
11
Affichages
968
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…