Discussion :

[csempere]

Bonjour, je souhaite trier une feuille selon la colonne A puis la colonne B, sans connaître la dernière ligne.
J'ai ce code qui fonctionne dans un userform, mais là, j'ai une erreur 1004 : "Impossible de lire la propriété Select de la classe Range."
Voyez-vous l'erreur ?
Merci par avance pour votre aide.
CS.

Code :

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

1
2
3
4
5
6
7
8
 
DernLigne = wksCib.Range("A65536").End(xlUp).Row
 
With Rows("2:" & DernLigne).Select
   Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
   DataOption1:=xlSortNormal
End With

[Pierre Fauconnier]

Salut.

Sans dire sur quelle ligne cela plante, c'est un peu l'exercice de la boule de crystal.

Ton code fonctionne lorsqu'une feuille de calcul est active.

Peut-être la feuille active au lancement de la macro n'est-elle pas une feuille de calcul mais une feuille graphique... Il serait donc prudent de préfixer les objets de type range de la feuille qui les supporte


Cela dit, tu n'es pas obligé de sélectionner tes lignes pour travailler avec. De plus, ton code ne trie que sur A...

Si tu veux trier sur A puis sur B, tu dois utiliser deux ordres de tri.

note aussi que Header:=xlGuess est dangereux puisque tu laisses à Excel le soin de définir si ta plage comporte des entêtes ou pas. Je te conseille Header:=xlYes

Code :

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

1
2
3
4
5
6
7
  DernLigne = wkscib.Range("A65536").End(xlUp).Row
  wkscib.Rows("2:" & DernLigne).Sort _
    Key1:=wkscib.Range("A2"), Order1:=xlAscending, _
    Key2:=wkscib.Range("B2"), Order1:=xlAscending, _
    Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

[csempere]

Merci pour ce coup de main rapide et efficace.
Cependant, je ne comprends pas ce qui bloquait.
(Hormis le fait que je n'avais pas ajouté le tri sur B).
En jaune, j'avais la ligne de sélection de plage...
Merci mille fois encore de toutes façons.
CS.

[zyhack]

Bonjour

Ce qui te donnais ton erreur est le fait d'utiliser "select" avec with.

Code :

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

With Rows("2:" & DernLigne).Select

en utilisant ce code tu n'aurais pas eu d'erreur

Code :

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

1
2
3
4
5
6
DernLigne = wksCib.Range("A65536").End(xlUp).Row
 
Rows("2:" & DernLigne).Select
   Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
   DataOption1:=xlSortNormal

mais pour plus de prudence suit les recommandations de Pierre Fauconnier

bonne journée
aurait fonctionné

[csempere]

Merci à tous pour votre aide.
CS.