Sujet Précédent Sujet Suivant

[Excel VBA]

Fermé
Astrackt - 11 mai 2009 à 15:44
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 - 12 mai 2009 à 07:12
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
11 mai 2009 à 19:38
up please. Besoin d'aide
0
Réponse 2 / 2
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
12 mai 2009 à 07:12
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