Discussion :

[RyuAutodidacte]

Re Patrick,
tu as oublié "." et ")"

si c'est la premiere cellule vide en partant de la droite

Code :

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

1
2
3
4
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Cells(Target.row, columns.countEnd(xlToLeft).Offset(, 1).select
End Sub
m

Correction du code :

Code :

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

1
2
3
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(, 1).Select
End Sub

Si ça se fait c'est du 2è code dans ton post dont il a besoin avec le End(xlToRight)

[aietoe]

En réponse à Ryuautodidacte,

Lorsque vous me dites :

Si c'est juste la cellule à droite à coté par exemple E1 pour aller à F1 la simple touche tabulation suffit

c'est justement ce que j'essaie d'éviter, c.a.d. d'utiliser la touche tabulation pour aller à F1. J'aimerais que aussitôt que j'ai entré le chiffre 1 dans E1 que mon curseur se positionne immédiatement à F1 sans utiliser la touche tabulation.....
Peut-être que c'est impossible de faire ça dans Excel. Dans ce cas, je continuerai à faire comme maintenant et utiliser la touche tabulation.

Merci

[RyuAutodidacte]

Bonjour aietoe,
Avez avez lu les réponses données (et testées) et regardé l'aide sur Offset ?
vous avez tout ce qu'il faut pour créer le code, et revenir avec dans le cas où vous avez un problème.

[transit06]

Utiliser des Selon touche, par exemple Enter

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
Sub ToucheAuto()
     Application.OnKey "{enter}", "Saisie"  'met en place le selon touche Enter
End Sub
Sub ToucheAutoFin()
     Application.OnKey "{enter}"  ' ôte le selon touche Enter
End Sub
 Sub Saisie"()
      With ActiveCell
            If.Column = 1 then
             ActiveCell.offset(0, 1).select
            ElseIf.Column = 2 then
             ActiveCell.offset(0, 1).select   ' Et ainsi de suite ?
             EndIf
      EndWith
End Sub

Avantage : On peut différencier des évènements différents suivants les touches (Entrée, retour, Tab., Alt etc), mais aussi suivant les colonnes ou même des lignes.
La mise en route peut être commandée en automatique par WorksheetActivate et Deactivate .
C'est une manière de travailler très incarné sur la feuille de calcul.

Enfin, moi ce que j'en dit c'est pour essayer de rendre service.
A+