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+
 

Regueiro

XLDnaute Impliqué
Re : Problème Alimentation Combobox

Bonsoir
Pardon
Voici le Fichier
Allez sur la Feuille("ART.0_BASE")
Double-Click sur la Colonne B en rouge ouvre USF
Merci
 

Pièces jointes

  • Prog Calculation 2014 V02 XLD.xlsm
    55.2 KB · Affichages: 42

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

Réponses
1
Affichages
119
Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 711
Messages
2 081 792
Membres
101 817
dernier inscrit
carvajal