Créer une macro qui reproduit vers le bas Résolu

Question

Bonjour, a tous
je viens de faire une macro mais j'aimerais la modifier pour qu'elle reproduise vers le bas jusque  ligne 200
voila le code:
Sub Macro1()
'
' Macro1 Macro
'

'
    Range("I37:M37").Select
    Range("M37").Activate
    ActiveWorkbook.Worksheets("Statistiques").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Statistiques").Sort.SortFields.Add Key:=Range( _
        "I37:M37"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Statistiques").Sort
        .SetRange Range("I37:M37")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Voila; elle fonctionne mais que sur la ligne I37:M37
Est ce que quelqu'un peut m'aider ?
Merci a tous, et bonne journée

cythonas · Answer

c'est ton range qui va pas faut que tu mette une plage dans ton range (le 2eme)
genre range ("M37: "M200") un truc comme sa ou alors si la ligne 200 et ta derniere ligne tu lui dit de copier jusqu'a la fin!!

c'est bete parceque je l'ai en 1ere année mais le programme est chez moi et la jsuis au taf^^

c'est que des souvenir que je t'ai donner mais bon essaye sa coute rien....

Jimy6000 · Answer

Rebonjour a tous
Merci Cythonas, j'essaye tout de suite et si cela ne va pas j'attendrais jusque ce soir lol :)

cythonas · Answer

ok dac si sa va pas dit la et je posterai sa cette nuit (je fini vers 22h30^^) au pire tu l'aura demain matin^^

Jimy6000 · Answer

Rere Bonjour
Non, elle ne fait rien du tout :(
J'ai modifié ce que tu m'as dit (I37:m200) 
il encadre cette zone mais rien d'autre ...enfin rien de concret lol
Encore merci pour ton aide


:) Keep smiling
Bye... Jimmy

cythonas · Answer

ba le truc... tu fait une macro d'un copier coller puis une macro du racourci pour descendre en bas d'une page et tu regroupe les deux macro c ske jai fait moi si jme souviens bien^^!!

sinan j'essayerai de te poste mon truc mais deja faut que je le retrouve^^ et faut que jpense a la poster pasque a 23h jpense pas forcement a aller me connecter  sur un forum^^

Jimy6000 · Answer

Bonjour Cythonas.
Non ça ne fonctionne pas non plus ou alors j'ai fait une erreur...
va savoir !
si tu as une idée elle est la bienvenue

Jimy6000 · Answer

Bonjour a tous.
Voila, j'ai résolu le prob. en ajoutant une boucle et elle marche super !!!
Code:
dim i as long
 
for i=37 to 200
 
Range("I" & i & ":M" & i).Select 
Range("M" & i).Activate 
ActiveWorkbook.Worksheets("Statistiques").Sort.SortFields.Clear 
ActiveWorkbook.Worksheets("Statistiques").Sort.SortFields.Add Key:=Range( _ 
"I" & i & ":M" & i), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ 
xlSortNormal 
With ActiveWorkbook.Worksheets("Statistiques").Sort 
.SetRange Range("I" & i & ":M" & i) 
.Header = xlGuess 
.MatchCase = False 
.Orientation = xlLeftToRight 
.SortMethod = xlPinYin 
.Apply 
End With 
 
next i

Créer une macro qui reproduit vers le bas

7 réponses

Discussions similaires

Newsletters