Triage de tableau VBA

Version imprimable

26/04/2017, 15h07
coco1397

Triage de tableau VBA
Bonjour,

Je suis un peu débutant en VBA. J'ai besoin de votre aide.

J'aimerais faire un tri sur un tableau que j'ai sur une feuille Excel. Il faudrait que je l'applique sur une variable existante !

Exemple:
Code:

1 2 3 4 5 Dim k As Integer k = 23 tableau.Sort.SortFields.Add tableau("Colonne 3").Range, SortOn:=k tableau.Sort.Apply
Est-ce que quelqu'un peut-il m'aider ?
Merci d'avance :D
27/04/2017, 10h01
joe.levrai

Bonjour,

quel est le type de ta variable tableau ?

ton tableau sur la feuille de calcul, est-ce une "bête" plage de cellules ou un vrai tableau structuré crée via le menu insertion >> Tableau (qui est un vrai objet manipulable en VBA, c'est l'objet ListObject)

en utilisant l'enregistreur de macro, tu vas avoir un code presque complet pour faire le tri.
La seule chose qu'il faudra modifier, c'est le Range qui sera capturé par l'enregistreur de macro

Si tu n'arrives pas adapter, reviens avec ce que t'as fourni l'enregistreur ;)
27/04/2017, 10h08
Invité

bonjour,
il faut que tu redéfinisses ton poste, car sur le forum de VB.net tu parle de VBA, ce qui explique le transfère chez nous!

mais concrètement ton code fait référence à VB.net! il sera difficile pour l'un et l'autre des forum de te répondre , si il subsiste le moindre mélange de genre!

Citation:

Envoyé par joe.levrai

Bonjour,

quel est le type de ta variable tableau ?

ton tableau sur la feuille de calcul, est-ce une "bête" plage de cellules ou un vrai tableau structuré crée via le menu insertion >> Tableau (qui est un vrai objet manipulable en VBA, c'est l'objet ListObject)

en utilisant l'enregistreur de macro, tu vas avoir un code presque complet pour faire le tri.
La seule chose qu'il faudra modifier, c'est le Range qui sera capturé par l'enregistreur de macro

Si tu n'arrives pas adapter, reviens avec ce que t'as fourni l'enregistreur ;)

Elle est de type ListObject. Je la déclare comme ceci :

Code:

tableau As ListObject

Et la reprend comme cela:

Code:

Set tableau = feuille.ListObjects(TABLEAU_DANS_FEUILLE)

Ensuite, avec l'enregistreur de Macro, je suis arrivée à ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ActiveWorkbook.Worksheets("Membres").ListObjects("TabMembres").Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Membres").ListObjects("TabMembres").Sort.SortFields. _ Add Key:=Range("TabMembres[[#All],[Sans la première]]"), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Membres").ListObjects("TabMembres").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With
Je vais regarder ce que ça me donne en réadaptant un peu à mon code et je reviens par la :)

27/04/2017, 10h18
Invité

Ok déjà tu viens de répondre à ma question!
27/04/2017, 10h32
coco1397

Alors c'est tout bon, j'ai pu résoudre mon problème. :D

C'est vrai que l'enregistreur de Macro est troooop bien et que j'avais oublié son existence :mouarf:

Merci beaucoup

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
With ActiveWorkbook.Worksheets("Membres")
    .Sort.SortFields. _
        Clear
    With .ListObjects("TabMembres").Sort
        .SortFields. _
        Add Key:=Range("TabMembres[[#All],[Sans la première]]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
End Sub

27/04/2017, 10h43
unparia

Citation:

Envoyé par coco1397

C'est vrai que l'enregistreur de Macro est troooop bien
Merci beaucoup

"Trop" est l'ennemi du bien. "Très" est son ami.
27/04/2017, 10h48
Invité

Oui l'enregistreur de macros demande d’être retravaillé après pour enlever e superflu!
27/04/2017, 10h50
coco1397

C'est pour ça qu'il a déjà réussi à ce que je voulais faire, c'est déjà ça :)