Microsoft Excel vers Mac Excel

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

Citation:

---

Envoyé par patricktoulon

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

Code:

---

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:

---

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)

En réponse à Ryuautodidacte,

Lorsque vous me dites :

Citation:

---

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

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.

Utiliser des Selon touche, par exemple Enter

Code:

---

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.:roll:

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