Renommer par vba un combobox

[perdinch]

Bonjour,

Peut-on renommer par vba un combobox?

J'ai essayé ce code de facon infructueuse.

Sub Macro1()
Dim i As Integer
Dim Combobox1 As Object
Dim ComboBox2 As Object
ActiveSheet.Unprotect
i = 12
j = 11
Sheets("test").Select
With Combobox1
ActiveSheet.Shapes("ComboBox1").Select
Name = "ComboBox" & i
With ComboBox2
ActiveSheet.Shapes("ComboBox2").Select
Name = "ComboBox" & j
End With
End With

End Sub

merci

Perdinch

 

[PMO2]

Re : Renommer par vba un combobox

Bonjour,

Sub aa()
Dim OL As OLEObject
For Each OL In ActiveSheet.OLEObjects
  If OL.Name = "ComboBox1" Then OL.Name = "ComboBox11"
  If OL.Name = "ComboBox2" Then OL.Name = "ComboBox12"
Next OL
End Sub

Cordialement.

PMO
Patrick Morange