VBA VB6 - Forcer l'ouverture d'un ComboBox
Pour obliger un ComboBox à s'ouvrir il y a la fonction...
ComboBox1.DropDown
Seulement voilà... Pour ça il faut que le comboBox ai le focus, et si la commande vient d'un autre contrôle c'est ce contrôle qui a le focus, donc... ça va pas.
Pour ouvrir l'autre ComboBox il faut recourir à une astuce que voilà,
Placer 2 ComboBox sur une feuille de calcul ou sur un UserForm nommer respectivement ComboBox1 et CombBox2
Dans les événements change de ces deux combo placer le code suivant.
Private Sub ComboBox1_Change()
'========== Combo sur une feuille ========= 1
'ComboBox2.Activate
'========== Combo sur un UserForm ou VB6 ========= 2
'ComboBox2.SetFocus
'==========================================
SendKeys "^(F4)"
End Sub
Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 16 Then
ComboBox2.DropDown
End If
End Sub
En libérant la ligne 1 ou 2 suivant l'emplacement des comboBox.
Résultat : Quand vous faite une sélection sur le ComboBox 1, le 2 s'ouvre automatiquement.
Télécharger un classeur Excel 97 - 2003
Serveur 1 : 3 combo & DropDown.xls
