Sujet Précédent Sujet Suivant

[Excel VBA]

Astrackt -  
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
J'ai recupéré le code suivant qui tri par ordre alphabétique une plage donnée.

Sub Macro1()

'Sélection de la plage à trier
Range("E1:M26").Select
'Lancement du tri, basé sur les données de la colonne A en ordre croissant
Selection.Sort Key1:=Range("1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Je souhaite intégrer cette macro dans une boucle.
Je veux donc remplacer les "E1:M26" par des elements dependants d'un valeur incrémentale "i" (Cells(i,j))

Comment faire cela?

2 réponses

Réponse 1 / 2
astrackt
 
up please. Besoin d'aide
0
Réponse 2 / 2
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour, 

Sub Macro1()

'Sélection de la plage à trier
ligdeb = 1
ligfin = 26
Range(Cells(ligdeb, 5), Cells(ligfin, 13)).Select
'Lancement du tri, basé sur les données de la colonne A en ordre croissant
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


attention au key1

eric
0