Trier un tableau Excel en VBS

Question

Bonjour à tous,

Je souhaite trier les données d'un tableau Excel avec mon script. Je n'ai eu aucun problème pour faire ça en VBA (enregistrement macro, blablabla...), mais les commandes ne fonctionne pas en VBS!!!! (je pense que ca vient des "2 points" synonyme d'une nouvelle instruction en VBS). Quelqu'un connaît-il l'équivalent des lignes suivantes en VBS????

code VBA
Range("A1:N" & TextNbTot).Select            ' TextNbTot = Nombre de lignes au format string
ActiveWorkbook.Worksheets("Tenant").Sort.SortFields.Add Key:=Range("L2", "L" & TextNbTot), SortOn:=xlSortOnValues, Order:=xlAscending, _
    DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Tenant").Sort.SortFields.Add Key:=Range("N2", "N" & TextNbTot), SortOn:=xlSortOnValues, Order:=xlAscending, _
    DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tenant").Sort
            .SetRange Range("A1", "N" & TextNbTot)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
End With

Je souhaite reproduire un tri similaire en VBS en utilisant aussi l'outil de tri d'Excel!!!!
Si vous voulez plus d'infos n'hésitez pas à réagir.

Merci de votre aide
bonne journée

@+ Manu

cs_JMO · Answer

Bonjour,

Effectivement, la syntaxe ":" n'existe pas en vbs.

objExcel.Range("A3:H341").Select
objExcel.Range("A3:H341").Sort objExcel.range("A3"),1 '1 pour xlAscending


jean-marc

Breizhmanu22 · Answer

Merci Jean-Marc,
ça fonctionne parfaitement.

Je vais juste avoir 2 petites questions complémentaires :
1. Comment prendre en compte les en-têtes?
2. Où trouver toutes les initialisations des variables VBA xlAscending, xlCenter, etc qui doivent être déclarées pour le VBS?

Encore merci de ton aide

@+
M@nu

Breizhmanu22 · Answer

Une troisième question vient s'ajouter : 
Lorsque j'applique un tri sur une colonne c'est OK, mais je souhaite trier mes données sur 3 colonnes. je m'explique : 

ColA ColB ColC ColD sont mes quatre colonnes de données. Je souhaite appliquer un tri sur ColB puis ColC (sans perdre l'ordre établi par le tri de ColB...) et enfin sur ColD (toujours en conservant l'ordre établi par le tri de ColB et ColC).

@+
M@nu

Breizhmanu22 · Answer

Salut,

Je suis toujours à la recherche d'une solution pour appliquer un tri sur un tableau avec des critères sur 3 colonnes (Voir les messages précédents).
Est-ce possible en VBS ou faut-il que je trouve une autre solution?

Merci de votre aide.
Bonne journée

@+
M@nu

Trier un tableau Excel en VBS

4 réponses

Votre réponse

Discussions similaires