[XL-2010] Se positionner sur une cellule spécifique à la sortie d'une autre cellule

[ToFind]

Bonjour,

Je souhaiterias me repositionner sur une cellule définie après avoir quitter une autre cellule. Je m'explique:
Imaginons que je me trouve sur la cellule A250 de ma feuille MAFEUILLE. Je pointe ensuite avec ma souris sur la cellule H4 qui est visible (car volets figés) et j'y entre une nouvelle donnée (ou que je ne change rien d'ailleurs).
Je souhaite qu'à la sortie de la cellule H4, je me retrouve sur la cellule quittée juste avant (soit la A250 dans mon exemple).

Merci de votre aide.

[jfontaine]

Bonjour,

Peut être comme cela

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim RGprev As Range
Dim RgAct As Range
 
Private Sub Worksheet_Change(ByVal Target As Range)
RGprev.Select
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Set RGprev = RgAct
Set RgAct = Target
 
End Sub

[Ormonth]

Bonjour,

jérôme, mais cette partie n'est pas traitée semble-t-il :

(ou que je ne change rien d'ailleurs

cordialement,

Didier

[jfontaine]

mais cette partie n'est pas traitée semble-t-il :

En effet, mais comment capter aucun changement?

[Ormonth]

Bonjour,

Je souhaite qu'à la sortie de la cellule H4 (sa cellule sélectionnée après celle d'origine)

je pense qu'il faut se centrer là dessus, mais ToFind ne nous dit pas tout :

Il faut un point de départ = référentiel et une façon d'en sortir

pour étude, je me suis fixé en référentiel une plage nommée "toto"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Dim Cel1 As Range
Dim Cel2 As Range
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("toto")) Is Nothing Then Set Cel1 = Target: Exit Sub
If Cel1 Is Nothing Then Exit Sub 'tant que pas de clic initial dans référentiel => RAS
If Cel2 Is Nothing Then Set Cel2 = Target
If Cel2.Address <> Target.Address Then Cel1.Select: Set Cel2 = Nothing
 
End Sub

la sortie restera à définir.

cordialement,

Didier

[ToFind]

Je vous remercie de votre engagement et des vos réflexions très pertinentes.

mais ToFind ne nous dit pas tout :

Que dois-je dire de plus?
Je peux me trouver sur n'importe quelle cellule de la feuille (= cellule d'origine), je clique sur la cellule H4 pour y entrer une donnée (ou pour ne rien modifier), et à la sortie de H4, je souhaite me retrouver sur la cellule d'origine.
Le code proposé jusqu'ici ne donne pas ce résultat.
Je suppose qu'il faudra toujours introduire le code dans la feuille et non dans un module distinct?
A bientôt.

[Ormonth]

Envoyé par ToFind

Je suppose qu'il faudra toujours introduire le code dans la feuille et non dans un module distinct?

un effort ? ... le code comporte cette ligne :

Code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

cordialement,

Didier

[ToFind]

Je confirme que l'évènement doit se trouver sur la feuille et non un module. Mais où est-il précisé que l'évènement doit être déclenché exclusivement à la sortie de la cellule H4?
Bonne journée.

[Theze]

Bonjour,

A mettre dans le module de la feuille.
D'après l'exemple donné par Didier :

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
28
29
30
31
32
33
34
35
36
 
Dim Cel1 As Range
Dim Cel2 As Range
 
'd'après la proc de Didier, les deux variables Range servent d'intérupteur
'marche arrêt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Count = 1 Then
 
        'évite l'erreur de la variable non initialisée
        On Error Resume Next
 
        'si ce n'est pas H4 :
        If Target.Address(0, 0) <> "H4" Then
 
            'on mémorise la cellule sélectionnée
            Set Cel1 = Target
 
            'on aiguille sur la cellule précédemment sélectionnée
            Cel2.Select
 
            'on mets à Nothing afin de permettre la sélection d'autre cellules
            Set Cel2 = Nothing
 
        'si c'est H4 :
        Else
 
            'on mémorise dans Cel2 la cellule précédemmenr sélectionnée
            Set Cel2 = Cel1
 
        End If
 
    End If
 
End Sub

Hervé.

[ToFind]

Bonjour à tous et merci de votre aide,

Didier,
Ta suggestion fonctionne en partie. En effet, lorsque je quitte la cellule H4 à l'aide des flèches gauche, droite ou vers le haut, cela fonctionne.
Par contre, si je quitte avec la flèche vers le bas ou avec "enter", cela ne fonctionne pas. Le pointeur descend sur H5. Y a-t-il une explication? Peut-on y remédier?

Guy

[mercatog]

Bonsoir
Si j'ai bien compris une autre proposition à tester
Bien sûr à mettre dans le module de ta feuille

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Dim CelPrec As String
Dim Oui As Boolean
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$H$4" Then
    Oui = True
Else
    If Oui Then
        Application.EnableEvents = False
        Range(CelPrec).Select
        Application.EnableEvents = True
    End If
    Oui = False
    CelPrec = Target.Address
End If
End Sub

[ToFind]

Bonsoir,

Les propositions d'Hervé et de Mercatog fonctionnent de manière très instable. Parfois ok et parfois pas ok du tout.
Je tourne en rond et ne comprends pas ce qui se passe...
Je joins mon fichier test avec les 2 essais.
Avez-vous une autre idée?

Cordialement.

[mercatog]

Peut être comme ceci

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
Option Explicit
Dim CelPrec As String
Dim Oui As Boolean
Dim i As Integer 'Variable pour le test
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$H$4" Then
    Oui = True
Else
    If Oui And CelPrec <> "" Then
        Application.EnableEvents = False
        Range(CelPrec).Select
        Application.EnableEvents = True
    Else
        'Les 2 lignes suivantes pour tester
        i = i + 1
        Target = "Cel mémo " & i
        'Fin test
        CelPrec = Target.Address
    End If
    Oui = False
End If
End Sub

C'est vrai que la demande n'est pas assez claire (pour moi du moins)
PS: J'ai ajouté les 2 lignes entre commentaires et la variable i pour le test sur les cellules mémorisées (la dernière) suite au clique.
Le rappel de cette cellule intervient après la sortie de la cellule H4

[Ormonth]

Bonjour,

C’est vrai qu’il y a un souci, il y a trois contributeurs (dont moi) qui, sans se concerter, ne comprennent rien à rien, ils pourraient faire plus d’efforts

Envoyé par ToFind

Mais où est-il précisé que l'évènement doit être déclenché exclusivement à la sortie de la cellule H4?

Envoyé par Ormonth

Il faut un point de départ = référentiel et une façon d'en sortir

pour étude, je me suis fixé en référentiel une plage nommée "toto"

donc, il suffisait de nommer H4 "toto"... en le mettant en dur, cela donne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Dim Cel1 As Range
Dim Cel2 As Range
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("H4")) Is Nothing Then Set Cel1 = Target: Exit Sub
If Cel1 Is Nothing Then Exit Sub 'tant que pas de clic initial dans référentiel => RAS
If Cel2 Is Nothing Then Set Cel2 = Target
If Cel2.Address <> Target.Address Then Cel1.Select: Set Cel2 = Nothing
 
End Sub

ce qui fonctionne chez moi.

cordialement,

Didier