Macro

SRBIJA · 23 Mai 2008

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 · 23 Mai 2008

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 · 23 Mai 2008

Re : Macro

Bonjour

l'enregistreur de macro aurait pu te donner la solution

Code:

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

oups : bonjour gibi excuse pour la collision

Macro

SRBIJA

Guest

GIBI

XLDnaute Impliqué

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Macro

SRBIJA

Guest

GIBI

XLDnaute Impliqué

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency