Macro pour un tri

  • Initiateur de la discussion Serge
  • Date de début
S

Serge

Guest
Bonjour,

4ème fois que je refais ce message ...

Comment faire évoluer la page de tri avec une macro ?
Le tableau joint à la présente : si j'y ajoutes des colonnes et des lignes ==> la plage de tri ne change pas ! Comment faire SVP ?

Merci d'avance.

Serge
 

Pièces jointes

  • essai.zip
    6.9 KB · Affichages: 21
  • essai.zip
    6.9 KB · Affichages: 18
  • essai.zip
    6.9 KB · Affichages: 20
B

Bernard

Guest
Bonjour Serge et tout le forum

Pour trier de façon automatique, il est nécessaire que toutes les étiquettes de colonne soient en place. Dans ton tableau, tu peux ajouter par exemple Désignation pour la première colonne.

Dans ces conditions, tu peux te servir de la macro suivante quel que soit le nombre de lignes ou de colonnes :


Sub Tri()
Range("B3").Activate
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("C4"), Order1:=xlDescending, Header:=xlGuess
Range("B3").Select
End Sub

Cordialement

Bernard
 
S

Serge

Guest
Bonjour Bernard,

Je remplace :

<<
Sub Macro1()
'
' Macro1 Macro
' Tri par référence
'
' Touche de raccourci du clavier: Ctrl+r
'
Range("B3:G8").Select
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub
>>

Par

<<
Sub Tri()
Range("B3").Activate
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("C4"), Order1:=xlDescending, Header:=xlGuess
Range("B3").Select
End Sub
>>

C'est ça ? Je le fais ...

Ca me fait le tri à l'envers : c'est normal ?

Mais surtout ... quand on ajoute des lignes ...

???

Ca marche ! Je n'ai rien compris du tout mais ça marche !
Merci !!!
 
S

Serge

Guest
Merci beaucoup !

Mais si as d'autres lignes en dessous qui ne doivent pas entrer dans le tri, comme un ligne de sous-total par exemple et une ligne de totaux ou encore une ligne avec des stats ? Ca marche quand même ou bien ça va nous prendre ces lignes aussi dans le tri ?
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Code de tri
Réponses
22
Affichages
322
Réponses
18
Affichages
561

Statistiques des forums

Discussions
312 305
Messages
2 087 082
Membres
103 457
dernier inscrit
fab2614