D'une cellule à une autre avec TAB

[adinnn]

Bonjour à tous,

est-ce qu'il y a un moyen de changer l'ordre de sélection des cellules(avec la touche tab) dans excel sans avoir nécessairement à modifier la cellule en question? Avec le code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$G$4" Then Range("G6").Select
If Target.Address = "$G$6" Then Range("G8").Select
If Target.Address = "$G$8" Then Range("L5").Select
If Target.Address = "$L$5" Then Range("L7").Select
If Target.Address = "$L$7" Then Range("K10").Select
If Target.Address = "$K$10" Then Range("M11").Select
If Target.Address = "$M$11" Then Range("K13").Select
If Target.Address = "$K$13" Then Range("B11").Select
If Target.Address = "$B$11" Then Range("B12").Select
If Target.Address = "$B$12" Then Range("B13").Select
If Target.Address = "$B$13" Then Range("B15").Select
If Target.Address = "$B$15" Then Range("B16").Select
If Target.Address = "$B$16" Then Range("B17").Select
End Sub

ça fonctionne bien mais je dois changer la valeur dans la cellule pour que ça fonctionne. Peut-être y a t'il une autre fonction qui me permette de naviguer d'une cellule à l'autre sans en changer le contenu?

Merci!

 

[Robert]

Re : D'une cellule à une autre avec TAB

Bonsoir Adinnn, bonsoir le forum,

L'aute méthode consiste a vérouiller toute les cellules que tu ne souhaites pas sélectionner et dévérouiller les autres et à protéger l'onglet. Dans ce cas la touche TAB va de cellule non verrouillée et cellule non verrouillée. Pas sûr que ça te convienne...

 

[pascal21]

Re : D'une cellule à une autre avec TAB

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$G$4" Then Range("G6").Select
If Target.Address = "$G$6" Then Range("G8").Select
If Target.Address = "$G$8" Then Range("L5").Select
If Target.Address = "$L$5" Then Range("L7").Select
If Target.Address = "$L$7" Then Range("K10").Select
If Target.Address = "$K$10" Then Range("M11").Select
If Target.Address = "$M$11" Then Range("K13").Select
If Target.Address = "$K$13" Then Range("B11").Select
If Target.Address = "$B$11" Then Range("B12").Select
If Target.Address = "$B$12" Then Range("B13").Select
If Target.Address = "$B$13" Then Range("B15").Select
If Target.Address = "$B$15" Then Range("B16").Select
If Target.Address = "$B$16" Then Range("B17").Select
End Sub

bonsoir adinn robert
peu-être comme ça avec un clic droit sur la cellule

 

[adinnn]

Re : D'une cellule à une autre avec TAB

Merci Robert et pascal21, mais n'y a t'il pas un moyen d'appeler la fonction seulement par l'appui de la touche TAB et non un right click ou un changement dans la cellule?

 

[chris]

Re : D'une cellule à une autre avec TAB

Bonjour

L'appui sur Tab n'est pas un événement au sens Excel : on ne peux donc l'intercepter.