Discussion :

[JessieCoutas]

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 :

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

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.

[JessieCoutas]

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

[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

[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?

[JessieCoutas]

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 :

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

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

[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

[JessieCoutas]

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.

[diude54]

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

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
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

[JessieCoutas]

J'ai mis le code dans selectionchange, mais ça ne change rien.

[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 :

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

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

[JessieCoutas]

Il ne comprend pas le code...

[diude54]

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

[JessieCoutas]

En fait, je crois comprendre qu'il faut assigner une procédure. Donc lui dire

Code :

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

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.

[aalex_38]

Erreur de syntaxe : adress ecrire address.

[JessieCoutas]

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

[mercatog]

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

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
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

[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.

[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.

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.

[JessieCoutas]

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