Exécution automatique d'une macro sans changer de cellule.
Bonjour à tous,
J'ai créé un tableau Excel qui regroupe les pronostics des matchs de la coupe du monde. Une fois le score réel encodé, tout est calculé automatiquement, les points sont attribués aux pronostiqueurs, et un classement des meilleurs pronostiqueurs est effectué.
La macro qui s'en charge est la suivante:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:AAA90")) Is Nothing Then
'
' Macro2 Macro
'
'
Range("F2:I9").Select
ActiveWorkbook.Worksheets("Brazil 2014").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Brazil 2014").Sort.SortFields.Add Key:=Range( _
"H3:H9"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Brazil 2014").Sort.SortFields.Add Key:=Range( _
"G3:G9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Brazil 2014").Sort
.SetRange Range("F2:I9")
.Header = xlYes
.MatchCase = True
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
End Sub |
Cependant, là ou ça pose problème, c'est qu'une fois une cellule modifiée, tout se met à jour normalement comme je le souhaite et sans problèmes, mais je souhaiterais que la cellule sélectionnée ne change pas, c'est à dire que la macro s'effectue sans me déplacer le curseur. Que puis-je insérer dans mon code?
Merci d'avance pour votre aide.
