Problème Alimentation Combobox

Regueiro

XLDnaute Impliqué
Bonsoir à Tous
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
Je n'arrive malheureusement pas à alimenter le combo :mad:
Merci de votre Aide
A+
 

zeltron24

XLDnaute Impliqué
Re : Problème Alimentation Combobox

Bonsoir Regeiro,

Un petit fichier en exemple pourrait nous ouvrir plus de compréhension si cela est possible.
 

Regueiro

XLDnaute Impliqué
Re : Problème Alimentation Combobox

Bonsoir
Voilà le Code qui fonctionne :
Code:
Private Sub UserForm_Initialize()
Dim cel As Range
i = 0
    For Each cel In [Prix]
        With ComboBox1
        .ColumnCount = 3
        .AddItem cel.Row
        .List(i, 1) = cel
        .List(i, 2) = Format(cel.Offset(, 5), """Frs ""0.00")
        End With
            i = i + 1
    Next cel
 End Sub
Bonne soirée
 

Discussions similaires


Haut Bas