Discussion :

[JacksonTri]

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.

[Marc-L]

Bonjour, bonjour !

Utiliser l'icône # pour baliser le code comme indiqué dans les règles du forum , cela ressemblera à quelque chose !

Pour de pas bouger la sélection tout simplement ne pas sélectionner d'autres cellules dans le code …

Exemple dans cette discussion … Et certainement dans l'exemple de l'aide de la méthode Sort !

Pour les moins doués, il y a encore la possibilité de sauvegarder dans une variable l'adresse de la sélection
avant d'en changer puis de la restaurer en fin de procédure …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[JacksonTri]

Merci pour votre réponse rapide, mais pardonnez-moi, je ne la trouve pas très claire.

J'ai ajouté ceci à mon code, après avoir fait d'autres recherches:

Code :

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

Target.select

Cela règle en partie mon problème puisque, une fois la cellule modifiée, l'exécution de la macro s'effectue et la cellule que je viens de modifier reste bien sélectionnée cependant, une fois la cellule modifiée, je souhaiterais que lorsque j'utilise la touche enter ou une flèche directionnelle par exemple la flèche du bas, la macro s'exécute mais également que la cellule sélectionnée après l'exécution soit celle juste en dessous de celle modifiée (ou celle du haut si j'ai pressé la touche flèche du haut).

Merci d'avance.

[Marc-L]

L'évènement Worksheet_Change se déclenche uniquement lors d'une modification d'une cellule …

[JacksonTri]

Oui je comprends bien, c'est bien pour cela que j'utilise cette fonction, c'est ce que je recherche.

Je souhaiterais juste que la macro s'effectue automatiquement après modification de la cellule mais sans affecter la position de mon "curseur". je ne sais pas si je me fais bien comprendre...

En gros je suis en AB25, je modifie la cellule AB25 j'appuie sur flèche de droite, ce qui en théorie lancera la macro puisque en quittant la cellule cela activera la modification et je devrais me retrouver sur la cellule adjacente de droite. Ce qui n'est pas la macro, une fois la cellule modifie s'exécute mais je reste en AB25 ou lieu d'être en AC25.

Merci d'avance