Discussion :

[coco1397]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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!

[Invité]

Ok déjà tu viens de répondre à ma question!

[coco1397]

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

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

Merci beaucoup

[unparia]

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

"Trop" est l'ennemi du bien. "Très" est son ami.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Oui l'enregistreur de macros demande d’être retravaillé après pour enlever e superflu!

[coco1397]

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

[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

[coco1397]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

tableau As ListObject

Et la reprend comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set tableau = feuille.ListObjects(TABLEAU_DANS_FEUILLE)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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