Regueiro
XLDnaute Impliqué
Bonsoir à Tous
Sur la Feuille ("0.Prix Unitaires") j'ai une liste dynamique nommée Prix
sur une seule colonne
J'essaie d'alimenter mon Combobox1 avec ce code :
Je n'arrive malheureusement pas à alimenter le combo
Merci de votre Aide
A+
Sur la Feuille ("0.Prix Unitaires") j'ai une liste dynamique nommée Prix
sur une seule colonne
Code:
=DECALER('0.Prix Unitaires'!$E$8;0;0;NBVAL('0.Prix Unitaires'!$E:$E)-3)
J'essaie d'alimenter mon Combobox1 avec ce code :
Code:
Private Sub UserForm_Initialize()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Set FL1 = Worksheets("0.Prix Unitaires")
With FL1
Set Plage = .Range("Prix")
For Each Cell In Plage
MsgBox Plage.Rows.Count
i = 0
Me.ComboBox1.Clear
Me.ComboBox1.AddItem
Me.ComboBox1.List(i, 0) = Cell
Me.ComboBox1.List(i, 1) = Cell.Row
i = i + 1
Next Cell
Me.ComboBox1.ListIndex = 0
End With
End Sub
Merci de votre Aide
A+