[Excel VBA]

Astrackt -  
eriiic Messages postés 24581 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?
Configuration: Windows XP
Firefox 3.0.10

2 réponses

  2.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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