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