[VBA] Trier un tableau excel

Résolu

Tableau
Vba

Doudou95 Messages postés 1561 Date d'inscription Statut Membre Dernière intervention -
Doudou95 Messages postés 1561 Date d'inscription Statut Membre Dernière intervention - 28 mai 2008 à 10:56

Bonjour,

Je fais une fois de plus appel à vos talents.

J'aimerai trier tout un tableau excel en fonction d'une colonne AC d'abord puis D (D + AC) , sachant que la première ligne du tableau correspond aux légendes du tableau.

Merci de m'aider

Afficher la suite

A voir également:

Excel vba trier tableau par ordre croissant
Excel trier par ordre croissant chiffre - Guide
Tableau word - Guide
Imprimer tableau excel sur une page - Guide
Liste déroulante excel - Guide
Tableau ascii - Guide

3 réponses

Réponse 1 / 3

zavenger Messages postés 811 Date d'inscription Statut Membre Dernière intervention 161

Bonjour,

vu que c'est un simple tri la fonction tri du menu données dois faire ton affaire.

Maintenant si tu veux en faire une macro, la fonction enregistrer une macro te donnera un bon debut de reponse

Réponse 2 / 3

Doudou95 Messages postés 1561 Date d'inscription Statut Membre Dernière intervention 275

C'est ce que j'ai fait regarde j'obtient ça:

Range("A1:AC220").Select
Selection.Sort Key1:=Range("AC2"), Order1:=xlAscending, Key3:=Range("D2") _
, Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption3 _
:=xlSortNormal

Seulement je veux pas sélectionner de A1 à AC220 mais de A1 à ACnbligne cela doit changer le code non? comment m'y prendre

onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120

Columns("A:AC").Select ?

zavenger Messages postés 811 Date d'inscription Statut Membre Dernière intervention 161

ton probleme n'est donc pas le tri mais la selection

a quoi correspond la ligne 220. Comment peut-on l'identifier? Est-ce la derniere ligne de ta feuille?

Si oui:

nbligne = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Range("A1:AC" & nbligne).Select
Selection.Sort Key1:=Range("AC2"), Order1:=xlAscending, Key3:=Range("D2") _
, Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption3 _
:=xlSortNormal

Discussions similaires

[Excel] Ligne inutile en bas de la feuille

Macro en VB pour aller à la dernière ligne

Affichage d'un tableau dans une MsgBox

affichage tableau dans MsgBox VBA excel

Vba excel actualiser TCD

[VBA/Excel] Tri croissant dans une colonne

Votre réponse

Discussions similaires