Bonjour,
j'ai un nouveau soucis, je creer dynamiquement a partir d un bouton des comboboxes (leur nombre est determeiner par un parametre N saisie dans la feuil1 en A1) dans une Feuil2 :
Sub combo()
Dim Obj As OLEObject
Dim Level As Integer, i As Integer
Dim L As Single, T As Single, W As Single, H As Single
i = 2
For Level = Worksheets(1).Range('N') To 1 Step -1
Worksheets(2).Select
L = Cells(i, 10).Left
T = Cells(i, 10).Top
W = Cells(i, 10).Width
H = Cells(i, 10).Height
Set Obj = Worksheets(2).OLEObjects.Add('Forms.Combobox.1', Left:=L, Top:=T, Height:=H, Width:=100)
i = i + 1
Next Level
End Sub
Mais il faut que j alimente ces comboboxes a partir d une liste saisie dans la plage P38 nommer Liste
Je comprend pas trop comment fonctionne Additem et je sais pas si c cela que je dois utiliser
Par avance merci
Loran
j'ai un nouveau soucis, je creer dynamiquement a partir d un bouton des comboboxes (leur nombre est determeiner par un parametre N saisie dans la feuil1 en A1) dans une Feuil2 :
Sub combo()
Dim Obj As OLEObject
Dim Level As Integer, i As Integer
Dim L As Single, T As Single, W As Single, H As Single
i = 2
For Level = Worksheets(1).Range('N') To 1 Step -1
Worksheets(2).Select
L = Cells(i, 10).Left
T = Cells(i, 10).Top
W = Cells(i, 10).Width
H = Cells(i, 10).Height
Set Obj = Worksheets(2).OLEObjects.Add('Forms.Combobox.1', Left:=L, Top:=T, Height:=H, Width:=100)
i = i + 1
Next Level
End Sub
Mais il faut que j alimente ces comboboxes a partir d une liste saisie dans la plage P38 nommer Liste
Je comprend pas trop comment fonctionne Additem et je sais pas si c cela que je dois utiliser
Par avance merci
Loran