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 : 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
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.