Problème macro boucle avec range...

Question

Bonjour à tous,

J'ai un petit problème avec une macro, je n'arrive pas à faire de boucle avec la fonction Range.

J'ai la macro suivante (ci-dessous) qui s'applique aux colonnes A et B (je l'ai enregistrée sous Excel). J'aimerais l'automatisée pour quelle me fasse la même chose sur les colonnes de A à AZ... Il faut donc sans doute une boucle for avec une variable..(je ne suis pas arrivé à la faire fonctionnée...)

Sub Tri()
'
' Tri Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("Scheduling").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Scheduling").Sort.SortFields.Add Key:=Range("A1") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Scheduling").Sort
        .SetRange Range("A2:A996")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
        Columns("B:B").Select
    ActiveWorkbook.Worksheets("Scheduling").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Scheduling").Sort.SortFields.Add Key:=Range("B1") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Scheduling").Sort
        .SetRange Range("B2:B996")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub




Je vous remercie d'avance.

Ju

f894009 · Answer

Bonjour,

'Column("A:A") correspond a Column(1), B=2 ........
'Range("A1") correspond Cells(1,1) , B1---> Cells(1,2)

Sub Tri()
'
' Tri Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
With ActiveWorkbook.Worksheets("Scheduling")
For Colonne = 1 To 52
.Columns(Colonne).Select
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Cells(1, Colonne), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Scheduling").Sort
.SetRange Range(Cells(2, Colonne), Cells(996, Colonne))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next Colonne
End With
End Sub

Cela devrait vous convenir

Bonne suite

jufabref · Answer

Je te remercie beaucoup! Ce la fonctionne à la perfection.

Ju

Problème macro boucle avec range...

2 réponses

Votre réponse

Discussions similaires

Newsletters