Déplacement du curseur de cellules en cellules

Bonjour,

J'aimerai mettre une macro pour déplacer le curseur vers la droite à chaque validation ( je ne veux pas celui des options générales car sinon ce sera par défaut dans tous les fichiers) uniquement pour la feuille active et lorsque le curseur arrive sur la case K13, un saut auto sur la cellule E14 (après validation) si possible sans touche de raccourcis et ainsi de suite pour une saisie plus rapide.

Je suis en mode tableau.

Merci de m'indiquer la procédure et ou je dois mettre la macro pour éviter que le curseur se déplace vers la droite dans tous les fichiers excel

Merci pour vos réponses

Bonjour,

Un PDF ... en fichier joint ...!!!

Cà ... c'est Super Original ....

Tu peux tester le code suivant ... dans le module de la Feuille ...

Private Sub Worksheet_Activate()
 Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Worksheet_Deactivate()
  Application.MoveAfterReturnDirection = xlDown
End Sub

En espèrant que cela t'aide

Bonjour,

Une piste à adapter. A mettre dans le module de la feuille concernée :

Dim Cel As Range
Dim Modif As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

    Select Case Target.Address(0, 0)

        Case "K13", "E14", "D20", "F22" 'etc...
            Modif = True
            Set Cel = Target
        Case Else
            Modif = False

    End Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Modif = False Then Exit Sub

    Application.EnableEvents = False

    Select Case Cel.Address(0, 0)

        Case "K13"
            Range("E14").Select

        Case "E14"
            Range("D20").Select

        Case "D20"
            Range("F22").Select

        'etc...
        'Case "F22"
            'Range("I25").Select

    End Select

    Application.EnableEvents = True

    Modif = False

End Sub

Bonjour et merci pour vos réponses, je vais tester prochainement.

Je m'excuse pour le PDF, j'étais dans ma routine habituelle et je comprend que pour des demandes sur Excel, c'était inapproprié

Antoine

Bonjour,

ou bien :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [E5:K10000]) Is Nothing Then
        [E5:K10000].Cells((Target.Row - 5) * 7 + Target.Column - 3).Select
    End If
End Sub

eric

Bonjour,

Le VBA je ne suis pas doué, aucune des solutions ne fonctionnent.

Je continue à chercher

Bonjour,

Le VBA je ne suis pas doué, aucune des solutions ne fonctionnent.

Merci beaucoup, c'est exactement le résultat que j'attendais.

J'espère pouvoir modifié les références de cellules car mon tableau est en cours de développement et j'ai encore un peu de mise au point.

Merci