bonjour
en faite je veux copier une combobox (du nom de el_type) a partir d une feuille(test1), la copier plusieur fois (5 fois) sur une autre(test), renommer les 2 premiere sous les noms de c_el_type et c_mesh_type. enfin je veux eliminer sur cette feuille less 3 autres combobox que je viens d importer. j tente de faire comme ci dessous mais je n y arrive pas.
Sub Macro6()
'
' Macro6 Macro
' Macro recorded 04/04/2006 by AVI06
'
Sheets('test1').Select
ActiveSheet.Shapes('ComboBox1').Select
Selection.Copy
Sheets('test').Select
Range('C6').Select
ActiveSheet.Paste
Range('C9').Select
ActiveSheet.Paste
Range('C12').Select
ActiveSheet.Paste
Range('C15').Select
ActiveSheet.Paste
Range('C18').Select
ActiveSheet.Paste
Dim combb1 As Object
With ActiveSheet
For i = .OLEObjects.Count To 1 Step -1
Set combb1 = .OLEObjects(i)
If combb1.Name = 'combobox1' Then combb1.Name = 'c_el_type'
If combb1.Name = 'combobox2' Then combb1.Name = 'c_mesh_type'
Next i
End With
Dim ctrl As OLEObject
Sheets('test').Select
With ActiveSheet
For i = .OLEObjects.Count To 1 Step -1
Set ctrl = .OLEObjects(i)
If Not ctrl.Name = 'c_el_type' And Not ctrl.Name = 'c_mesh_type' Then
ctrl.Delete
End If
Next i
End With
voili voilou.encore merki