Microsoft 365 Comment forcer l'utilisation de ENTER dans une macro (avec Sendkey ???)

[MICHIS]

If Not Intersect(Target, Range("NUM_AD")) Is Nothing Then …..
Cette macro se « déclenche » après avoir cliqué sur ENTER ou sur flèche droite, ou sur flèche gauche …etc. Je ne sais plus alors où se trouve la cellule active (en bas, à gauche, à droite ??). Comment retrouver la position de la cellule active de la macro précédente ou mieux encore ...
Comment obliger de cliquer sur ENTER seulement ?

 

[patricktoulon]

Bonjour d'abords
et hein!! ???????

je peux en avoir moi aussi

 

[Usine à gaz]

Et merci

 

[eriiic]

Bonjour,

ils ont raisons les copains, on n'est pas des sauvages...
Une proposition :

Dim celPrec As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not celPrec Is Nothing Then
        If celPrec.Address = ActiveCell.Offset(-1).Address Then
            MsgBox "précédente = dessus " & celPrec.Address
        ElseIf celPrec.Address = ActiveCell.Offset(, -1).Address Then
            MsgBox "précédente = gauche " & celPrec.Address
        ElseIf celPrec.Address = ActiveCell.Offset(, 1).Address Then
            MsgBox "précédente = droite " & celPrec.Address
        Else
            'd'ailleurs...
        End If
    End If
    Set celPrec = ActiveCell
End Sub

Le précédent n'existe pas au premier déplacement.
Si potentiellement gênant faire un déplacement par macro à l'ouverture.

Pour simplifier j'ai supposé qu'arriver en colonne A ou en ligne 1 le renseignement ne t'intéressait pas.
Sinon ça fera beaucoup plus de tests et de lignes.
eric