Public Sub test()
Dim resultat$
resultat = "Momo"
With Feuil1
.ComboBox1.Text = resultat
End With
MsgBox Feuil1.ComboBox1.Text
Feuil1.ComboBox1.Text = ""
Exit sub
End Sub
Dans le module de la feuille
VB:
Private Sub ComboBox1_DropButtonClick()
Call test
End Sub