With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1") .Name "toto": .LinkedCell "": .Left = 361.5 .Top 268.5: .Width 147: .Height = 27.75 End With Set toto = ActiveSheet.Shapes("Toto").DrawingObject.Object toto.AddItem "test1" toto.AddItem "test2"
MsgBox toto.Value
If toto.ListIndex >= 0 Then MsgBox toto.List(toto.ListIndex)
Set Libcb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=361.5, Top:=268.5, Width:=147, Height:= _ 27.75)
Libcb.name = "Toto"
Libcb.Object.AddItem "test"
MsgBox ActiveSheet.Shapes("Toto").DrawingObject.Object.Value
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question