Changer le ENTER en TAB

Bonjour tous le monde , tous est dans la question :cry: je voudrais juste que quand j'appuis sur ENTER qu'il me face un TAB ou si une fonction existe pour quand j'ai des cellules proteger et que je tape sur ENTER qu'il me renvois a la ligne des qu'il rencontre une celule proteger , voila et merci d'avance:roll:

Bonsoir,

Je sais pas s'il y as une autre solution mais tu peu faire cela par du code VBA

Dans thisWorkBook :

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() Application.OnKey "{RETURN}", "TraiteEnter" Application.OnKey "{ENTER}", "TraiteEnter" 'Clavier Num End Sub

---

Code:

---

1 2 3 4 5 6

Sub TraiteEnter() If ActiveSheet.Name = "Feuil1" Then ActiveCell.Next.Activate End If End Sub

---

Dans un module

Vraiment je sais plus quoi dire a part MERCI :D:king::yaisse2:

Tu peux aussi empêcher la sélection d'un cellule verrouillée lorsque la feuille est elle-même protégée.

Code:

---

ActiveSheet.EnableSelection = xlUnlockedCells

---

Si ta feuille n'est pas protégée, tu peux également placer ton code dans la feuille de code de la feuille de calculs dans l'événement SelectionChange

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Locked Then Target.Offset(1, 0).Select End Sub

---

Évite d'affecter une macro à une touche.
A toutes fins utiles ;)

Je te rmerci aussi ouskel'n'or toute les solutions son bonne pour l'autre exemple je peut lui affecter sur une seul feuille et remettre avant de passer a une autre je vais tester t'as solution et te tient au 220 v:king:

Citation:

---

Envoyé par ouskel'n'or

Tu peux aussi empêcher la sélection d'un cellule verrouillée lorsque la feuille est elle-même protégée.
Si ta feuille n'est pas protégée, tu peux également placer ton code dans la feuille de code de la feuille de calculs dans l'événement SelectionChange

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Locked Then Target.Offset(1, 0).Select End Sub

---

Évite d'affecter une macro à une touche.
A toutes fins utiles ;)

---

J'ai essaier t'as solution Mais au moment qu'il recontre une cellule protéger il vas a la cellule A256?8O:?

Citation:

---

J'ai essaier t'as solution Mais au moment qu'il recontre une cellule protéger il vas a la cellule A256?

---

En effet, si tes cellules A1:A255 sont protégées, alors la cellule suivante est A256
Comme ton offset peut provoquer une erreur si ta cellule verrouillée est sur la ligne 1 à 5, je te propose plutôt d'utiliser

Code:

---

If Target.Locked Then Target.Offset(1, 1).Select

---

qui place sur la cellule une ligne au-dessous mais sur la colonne suivante.
C'est toi qui vois ;)

Code:

---

If Target.Locked Then Target.Offset(1, -5).Select

---

si je fais sa, sa fonctionne il revient a la 1ere en bas mais il me met une erreur quand il rencontre la 1 ere en bas proteger puisqu'il ne peut a aller 5 en arriere?

Re...

remplace le .offset(..). par .Next.

IMPECABLE il remonte a la 1ere cellule et ne me remet plus d'erreur :D:king::yaisse2:

Pour mon info, sur quelle version travaillez-vous ? J'ai une erreur sur 2003.

Citation:

---

Envoyé par ouskel'n'or

Pour mon info, sur quelle version travaillez-vous ? J'ai une erreur sur 2003.

---

Bonsoir, Cowboy :mouarf:

c'est quoi l'erreur ? le code utilisé c'est bien cela :

Code:

---

If Target.Locked Then Target.Next.Select

---

C'est bien sa JackOuYA et plus d'erreur , j'utilise le exel 2000 :king:

:marteau: j'avais oublié le select, autant pour moi. :oops:

Bah chacun a c'est moment de faiblesse :lol::king: