
ComboBox1.DropDown
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
| VBA VB6 - Lire tous les fichiers, répertoires et sous/rép | Ouvrir un document ODT/ODF avec la suite Office (Word...) |
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.