Discussion :

[Jimy6000]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
--

Keep smiling
Bye... Jimmy

Configuration: Windows XP
Internet Explorer 7.0

[jfontaine]

Tu peux ajouter une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
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

J'ai juste appliqué la boucle sur ton code pour te donner une idée du fonctionnement, mais pas testé.

[Jimy6000]

Bonsoir Jfontaine.
J'ai remplacé le script existant et elle fonctionne super !!!
Champion en VBA chapeau !
Merci encore
Bonne soirée
Bye
Jimmy