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:
Voila; elle fonctionne mais que sur la ligne I37:M37
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
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
Partager