Discussion :

[janakka-horus]

Bonjour,
Voila je viens de faire un formulaire (voir ficher joint). Je voudrai savoir si c'est possible d'utiliser la touche tabulation pour valider mes choix au lieu du click.

Voici mes codes

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
Private Sub ComboBox1_Change()
Me.ComboBox1.RowSource = "A2:A" & [A65000].End(xlUp).Row
End Sub
 
Private Sub ComboBox2_Change()
Me.ComboBox2.RowSource = "B2:B" & [B65000].End(xlUp).Row
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub
 
Private Sub ComboBox2_DropButtonClick()
ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByValShift As Integer)
If KeyCode = 13 Or KeyCode = 9 Then
ComboBox1.Select: ComboBox2.Activate
End If
End Sub

Merci pour votre aide

[zoumzoum59]

Bonjour janakka-horus,

Si je ne me trompe pas tu dois pouvoir valider avec la touche entrée au lieu de la souris, ce qui fera la meme chose que la touche tabulation et ça passe de l'un a l'autre en fonction de la valeur du tabindex de ta combobox.

[Bear the french]

Bonsoir janakka-horus,

Je ne suis pas sûr du résultat mais tu peux essayer :

Code :

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

1
2
3
4
5
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByValShift As Integer)
If KeyCode = vbKeyTab Then
ComboBox1.Select: ComboBox2.Activate
End If
End Sub

Bertrand