Passer d'une cellule à une autre par tabulation

Version imprimable

Bonjour!

J'ai différentes cellules que l'utilisateur doit remplir. J'aimerais, pour faciliter la saisie, que lorque l'utilisateur clique sur entrée ou la touche tabulation, on passe de la cellule sélectionnée à la suivante.
Ex, je dois remplir les cellules A1 puis la cellule C5, puis E7... Comment dire que lorsque A1 est sélectionnée puis qu'on clique sur la touche entrée ou tabulation, je passe à la cellule C5 etc...?

Pour le moment j'ai écris:
Code:

1 2 3 4 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Or Intersect(Target, Range("A1,C5,E7,K7,E17,E19,E21,E23,J19,J21,J23,G27,G28,G29,G30,G33,G35")) Is Nothing Then Exit Sub
Merci à celui qui répondra.
Bonne journée.

Voici ce que j'ai écris, ça marche mais encore un détail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Variant
Dim colonne As Variant
 
ligne = Target.Row
colonne = Target.Column
 
If Target.Count > 1 Or Intersect(Target, Range("E5,E7,K5,K7,E17,E19,E21,E23,J19,J21,J23,G27,G28,G29,G30,G33,G35")) Is Nothing Then Exit Sub
 
    If ligne = 5 And colonne = 5 Then
        Cells(ligne, colonne + 6).Select
    End If
 
End Sub

En fait ça fonctionne quand je double clic dans la cellule et appuie sur entrée.
Il faudrait que ça se fasse quand la cellule est sélectionnée simplement et qu'on appuie sur entrée ou tabulation.

10/09/2009, 10h54
Didier Gonard

Bonjour,

Selon le contexte, il peut y avoir beaucoup plus simple, sans vba.

Tu sélectionnes les cellules que tu veux parcourir, clic droit dessus, format de cellule, onglet protection, tu décoches verrouillée.

Ensuite, dans le ruban onglet Révision, protéger la feuille, décocher sélectionner les cellules verrouillées etc. en laissant cocher Sélectionner les cellules dérouillées etc... et OK

Désormais, avec tab ou entrée la navigation se fera automatiquement sur les cellules choisie ;)

cordialement,

Didier
10/09/2009, 11h12
JessieCoutas

Merci pour votre réponse.
J'avoue que je n'y avais pas pensé...

Le problème est que j'ai des optionbutton dans ma feuille donc je ne peux pas la protéger, autrement, les optionbutton ne fonctionnent pas.

D'ailleurs, j'aimerai aussi que quand on clique sur entrée ou tabulation dans la dernière cellule sélectionnée, que la souris se positionne sur un optionbutton pour montrer à l'utilisateur qu'il doit sélectionner quelque chose à cet endroit.

Comment je peux faire?

code

Au final, voici le code qui fonctionne donc quand on double clic sur la cellule et qu'on appuie sur entrée: (ce n'est peut-être pas très jolie comme code mais je ne sais pas comment faire autrement...)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Variant
Dim colonne As Variant
 
ligne = Target.Row
colonne = Target.Column
 
If Target.Count > 1 Or Intersect(Target, Range("E5,E7,K5,K7,E17,E19,E21,E23,J19,J21,J23,G27,G28,G29,G30,G33,G35")) Is Nothing Then Exit Sub
 
    If ligne = 5 And colonne = 5 Then Cells(ligne + 2, colonne).Select    'Si E5 est remplie, on passe à E7
    If ligne = 7 And colonne = 5 Then Cells(ligne - 2, colonne + 6).Select  'Si E7 on passe à K5
    If ligne = 5 And colonne = 11 Then Cells(ligne + 2, colonne).Select
    If ligne = 7 And colonne = 11 Then Cells(ligne + 2, colonne - 8).Select
 
    If ligne = 17 And colonne = 5 Then Cells(ligne + 2, colonne).Select
    If ligne = 19 And colonne = 5 Then Cells(ligne, colonne + 5).Select
    If ligne = 19 And colonne = 10 Then Cells(ligne + 2, colonne - 5).Select
    If ligne = 21 And colonne = 5 Then Cells(ligne, colonne + 5).Select
    If ligne = 21 And colonne = 10 Then Cells(ligne + 2, colonne - 5).Select
    If ligne = 23 And colonne = 5 Then Cells(ligne, colonne + 5).Select
    If ligne = 23 And colonne = 10 Then Cells(ligne + 3, colonne - 3).Select
    If ligne = 26 And colonne = 7 Then Cells(ligne + 1, colonne).Select
    If ligne = 27 And colonne = 7 Then Cells(ligne + 1, colonne).Select
    If ligne = 28 And colonne = 7 Then Cells(ligne + 2, colonne).Select
    If ligne = 30 And colonne = 7 Then Cells(ligne + 3, colonne).Select
    If ligne = 33 And colonne = 7 Then Cells(ligne + 2, colonne).Select
    If ligne = 35 And colonne = 7 Then Cells(ligne + 3, colonne - 5).Select
 
End Sub

10/09/2009, 13h51
Didier Gonard

bonjour,

Le plus important dans un code au final est qu'il fonctionne ;), une super œuvre / code qui ne fait que partiellement ce que voulait le demandeur est moins intéressante ( pire si elle bug). Après c'est une notion de contexte ;)

Pas le temps de penser à une autre approche, donc juste des remarques :

Tu as bien mis un exit sub au départ pour éviter des traitements inutiles, ce serait bien d'appliquer la même logique ensuite, là ta procédure parcourt tous les if...

Vois du côté de Select Case qui serait peut-être plus approprié sinon..

cordialement,

Didier
11/09/2009, 09h22
JessieCoutas

Le code ne répond qu'à moitié à ce que je souhaiterais

Le code fonctionne effectivement, cependant il permet de passer d'une cellule à l'autre quand on double clic dans la cellule puis qu'on appuie sur entrée.

Je voudrais que ça passe d'une cellule à l'autre quand la cellule est juste sélectionnée (c'est à dire qu'on est pas obligé de double cliquer dedans) et qu'on appuie sur la touche entrée ou la touche tabulation. Et ça je n'y arrive pas.

Quelqu'un aurait-il une idée?

Merci. Bonne journée.

Essai de mettre ton code dans selection change et pas change:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim ligne As Variant
Dim colonne As Variant
 
ligne = Target.Row
colonne = Target.Column
 
If Target.Count > 1 Or Intersect(Target, Range("E5,E7,K5,K7,E17,E19,E21,E23,J19,J21,J23,G27,G28,G29,G30,G33,G35")) Is Nothing Then Exit Sub
 
    If ligne = 5 And colonne = 5 Then Cells(ligne + 2, colonne).Select    'Si E5 est remplie, on passe à E7
    If ligne = 7 And colonne = 5 Then Cells(ligne - 2, colonne + 6).Select  'Si E7 on passe à K5
    If ligne = 5 And colonne = 11 Then Cells(ligne + 2, colonne).Select
    If ligne = 7 And colonne = 11 Then Cells(ligne + 2, colonne - 8).Select
 
    If ligne = 17 And colonne = 5 Then Cells(ligne + 2, colonne).Select
    If ligne = 19 And colonne = 5 Then Cells(ligne, colonne + 5).Select
    If ligne = 19 And colonne = 10 Then Cells(ligne + 2, colonne - 5).Select
    If ligne = 21 And colonne = 5 Then Cells(ligne, colonne + 5).Select
    If ligne = 21 And colonne = 10 Then Cells(ligne + 2, colonne - 5).Select
    If ligne = 23 And colonne = 5 Then Cells(ligne, colonne + 5).Select
    If ligne = 23 And colonne = 10 Then Cells(ligne + 3, colonne - 3).Select
    If ligne = 26 And colonne = 7 Then Cells(ligne + 1, colonne).Select
    If ligne = 27 And colonne = 7 Then Cells(ligne + 1, colonne).Select
    If ligne = 28 And colonne = 7 Then Cells(ligne + 2, colonne).Select
    If ligne = 30 And colonne = 7 Then Cells(ligne + 3, colonne).Select
    If ligne = 33 And colonne = 7 Then Cells(ligne + 2, colonne).Select
    If ligne = 35 And colonne = 7 Then Cells(ligne + 3, colonne - 5).Select
 
 
End Sub

11/09/2009, 11h04
JessieCoutas

J'ai mis le code dans selectionchange, mais ça ne change rien.
11/09/2009, 11h07
diude54
Je pense que pour que ça fonctionne correctement (la ça ne va pas attendre que tu appui sur entrée ou tab), il faut que tu mettes une condition sur onkey.
Code:

1 2 3 If target.adress=range("B1").adress then Application.OnKey Key:="~" , Range("B5").select end if
11/09/2009, 11h12
JessieCoutas

Il ne comprend pas le code...
11/09/2009, 11h22
diude54

http://msdn.microsoft.com/en-us/library/bb223496.aspx

:f1::google2:
11/09/2009, 11h37
JessieCoutas
En fait, je crois comprendre qu'il faut assigner une procédure. Donc lui dire
Code:

1 2 3 If Target.adress = Range("E5").adress Then Application.OnKey "{TAB}", Range("E7").Select End If
ne peut pas fonctionner.

L'idée est bonne mais je ne sais pas trop comment faire pour que ça fonctionne.
11/09/2009, 11h44
aalex_38

Erreur de syntaxe : adress ecrire address.
11/09/2009, 11h51
JessieCoutas

Bien vu... malheureusement ce n'est pas encore bon.

Je vois que tes If... Then n'ont pas progressé
Essaies plutôt comme ça (ça dépendra de ta configuration)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kol As Integer, Lig As Integer, K As Integer, L As Integer
 
Kol = Target.Column
Lig = Target.Row
 
If Target.Count > 1 Then Exit Sub  'Mettre Ici tous les tests sr la zone de travail
 
Select Case Kol
    Case 1
        K = 0: L = 3
    Case 2
        Select Case Lig
            Case 2
                K = 1: L = 0
            Case 3
                K = 2: L = 1
            'Case ....
            'Case Else
            '    K=0:L=1
        End Select
 
    Case 3
        K = 3: L = 1
    'Case ....
 
    Case Else                       'Absolument mettre ce Case Else pour retrouver le fonctionnement normal
        K = 0: L = 1
 
End Select
 
Target.Offset(K, L).Select
 
End Sub

Quand tu changes le contenu de la cellule Target, et tu fais Enter ou Tabulation, la case Target.Offset(K,L) sera selectionnée

11/09/2009, 15h44
JessieCoutas

Bonjour,

J'avoue avoir du mal à comprendre le code que tu m'as écris. Désolée, je ne suis pas très douée...
En fait, d'après ce que tu dis, ça permet lorsque l'on change le contenu de la cellule, de passer à la cellule suivante. C'est ce que fais déjà le code (peut-être un peu cochon je l'avoue:?) que j'ai écris.

En fait il faudrait maintenant réussir à ce qu'il n'y ait pas besoin de changer le contenu de la cellule pour que ça passe d'une cellule à l'autre par tabulation ou touche entrée.

Merci pour ton aide.
11/09/2009, 16h26
aalex_38

Pour ce que tu veux faire la solution de Ormonth me parait la plus simple et la plus pratique à mettre en place.

Je viens de tester et c'est à la fois simple et efficace, pas besoin de réinventer.

Citation:

Le problème est que j'ai des optionbutton dans ma feuille donc je ne peux pas la protéger, autrement, les optionbutton ne fonctionnent pas.

=> Si, il suffit de faire avant la protection de la feuille : clique droit/Format de control /Protection et décocher vérouiller.
11/09/2009, 17h11
JessieCoutas

Merci aalex, ça fonctionne parfaitement!! Je n'y avais effectivement pas pensé...