combobox utilisation de la touche tabulation pour valider au lieu du click

Version imprimable

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:

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

17/06/2012, 18h26
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.

Bonsoir janakka-horus,

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

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