Discussion :

[danisoaz]

Bonjour,
Le code ci dessous génère un msg d'erreur "Utilisation incorrecte de la propriété"

Code :

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

1
2
3
4
Set Ws = Worksheets("Base")
Ws.Sort Key1:=Range("B"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Dans les exemples trouvés sur les forums je ne vois pas d'autres façons de l'utiliser, merci de me dire ce que je ne vois pas.

Cordialement
Daniel

[MarcelG]

Bonjour danisoaz,

Cela m'étonne de voir la méthode Sort affectée à un objet Worksheet plutôt que Range, d'autant si l'on consulte l'aide en ligne, du moins sur Excel 2003.

Essaie plutôt.

Code :

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

1
2
3
4
5
6
7
8
Public Sub essai2()
Dim Ws as Worksheet
Set Ws = Worksheets("Base")
With Ws
        .Range("A1:B4").Sort Key1:=.Range("B1"), Order1:=xlAscending
End With
Set Ws = Nothing
End Sub

[danisoaz]

Merci Marcel,

Je voulais éviter d'avoir à définir la plage, mais il semble qu'effectivement ce soit une contrainte VBA. Si on enregistre une macro avec le menu données / trier on n'a pas ce blocage.
Bon je vais me résoudre à compter lignes et colonnes !
Merci

[Theze]

Bonjour,

Tu n'est pas obligé de définir une plage bien précise, tu peut faire le tri sur la colonne entière mais comme te le dis Marcel, l'objet Worksheet n'a pas de méthode "Sort" donc il te faut utiliser un range et si c'est la feuille entière que tu veux trier, utilise "Cells" qui a une méthode "Sort" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Tri()
 
    Dim Ws As Worksheet
 
    Set Ws = Worksheets("Feuil1")
 
    Ws.Range("B:B").Sort [B2], xlAscending
    'Ws.Cells.Sort [A2], xlAscending
 
End Sub

Hervé.

[danisoaz]

Bonjour Hervé,

Merci de ton concours. De toutes façons je voulais trier sur 4 colonnes (pour alimenter un listview dans un ordre précis) et ce n'est pas possible. J'ai contourné la difficulté en ajoutant une colonne à mon listview qui contient la concaténation des 4 colonnes. Ce qui est encore bien plus souple. J'adore les listviews mais j'ai encore un petit détail à régler posé par ailleurs : à l'affichage du listview le premier enregistrement de la table est sélectionné par défaut... pas très gênant mais peu causer des manips inutiles !

Cordialement
Daniel