pd alimentation combo par une liste excel

[loran45]

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

 

[ChTi160]

Salut loran45
additem permet de remplir une combobox élément par élément
la procèdure suivante (à adapter) alimente via RowSource le Combobox avec une plage Nommée

Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = Range('Liste').Address
End Sub
tiens nous a courant
bonne journée

 

[Hervé]

Bonjour loran, le forum

tu peux essayer comme ceci :

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)
Obj.Object.List = Range('liste').Value 'AJOUT
i = i + 1
Next Level
End Sub


salut


edition : oups, salut chti

Message édité par: hervé, à: 08/02/2006 10:35

 

[ChTi160]

arff moi je passe à 300km/h
et je vois pas tout
Salut Hervé content de te croiser
arfff en plus RowSource ca marche pas avec ce genre de Combobox mais bon hein !!! Lol
Bonne journée

Message édité par: Chti160, à: 08/02/2006 10:51

 

[loran45]

Merci de ta reponse jean-marie

Excellent Hervé !
çà marche à merveille

Sur ce forum vous etes vraiment de grands génies sous excel !

Encore un grand merci

Bonne journée a vous

Loran