Créer une macro qui reproduit vers le bas

Résolu
Jimy6000 Messages postés 243 Date d'inscription   Statut Membre Dernière intervention   -  
Jimy6000 Messages postés 243 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

7 réponses

Réponse 1 / 7
Jimy6000 Messages postés 243 Date d'inscription   Statut Membre Dernière intervention   39
 
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
1
Réponse 2 / 7
cythonas Messages postés 611 Date d'inscription   Statut Membre Dernière intervention   84
 
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....
0
Réponse 3 / 7
Jimy6000 Messages postés 243 Date d'inscription   Statut Membre Dernière intervention   39
 
Rebonjour a tous
Merci Cythonas, j'essaye tout de suite et si cela ne va pas j'attendrais jusque ce soir lol :)
0
Réponse 4 / 7
cythonas Messages postés 611 Date d'inscription   Statut Membre Dernière intervention   84
 
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^^
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
Jimy6000 Messages postés 243 Date d'inscription   Statut Membre Dernière intervention   39
 
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
0
Réponse 6 / 7
cythonas Messages postés 611 Date d'inscription   Statut Membre Dernière intervention   84
 
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^^
0
Réponse 7 / 7
Jimy6000 Messages postés 243 Date d'inscription   Statut Membre Dernière intervention   39
 
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

0