Macro

[SRBIJA]

Bonjour,

Voici ma macro :


Sub coderéf_dans_onlet_prod3()
Range("A4:A65536").Select
Selection.ClearContents
ligne = 4
For n = 1 To Sheets.Count
If Sheets(n).Name = "Production Fidis" Or Sheets(n).Name = "Production Traditionnelle" Then
For m = 8 To Sheets(n).Range("A65536").End(xlUp).Row
Sheets("Prod.3").Cells(ligne, 1) = Sheets(n).Range("A" & m)
ligne = ligne + 1
Next m
End If
Next n
End Sub


Je voudrais après l'élément en rouge appliquer un tri croissant de A4:A65536.

Remarque: je veux que le tri commence à partir de la cellule A4.

Merci d'avance pour vos réponses

 

[GIBI]

Re : Macro

Salut,

Pour trier tu selectionne la plage

Range("A4:A65536").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
********* ou si la plage ne comporte pas de ligne titre
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Dans cet exemple le tri travail sur toutes les données (=ligne entière) mais n'utilise que la colonne A pour le classement

ce code a été obtenu avec l'enregistreur de macro

GIBI

 

[wilfried_42]

Re : Macro

Bonjour

l'enregistreur de macro aurait pu te donner la solution

Range("A4:A" & range("A65536").end(xlup).row).sort key1:=range("A4")

oups : bonjour gibi excuse pour la collision