ComboBox trop petit pour tout voir !!

Bonjour,
Essaie ceci , tu places ce code dans un module.

Private Const CB_GETLBTEXTLEN = &H149
Private Const CB_SHOWDROPDOWN = &H14F
Private Const CB_GETDROPPEDWIDTH = &H15F
Private Const CB_SETDROPPEDWIDTH = &H160
Private Const CB_MSGMAX = &H15B
Private Const CB_SETITEMHEIGHT = &H153

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                                     (ByVal hwnd As Long, ByVal wMsg As Long, _
                                      ByVal wParam As Long, lParam As Any) As Long

Public Sub LargeurCombo(hwnd As Long, largeur As Long)

    SendMessage hwnd, CB_SETDROPPEDWIDTH, largeur, ByVal 0
End Sub

'Celui-ci dans le module de la Form.

Private Sub Form_Load()
Combo1.AddItem "Jean"
Combo1.AddItem "Pierre"
Combo1.AddItem "La largeur est de 350, pour diminuer oµ augmenter, changer ce chiffre."

LargeurCombo Combo1.hwnd, 350

End Sub

jpleroisse