Problème Alimentation Combobox

Regueiro · 6 Mars 2014

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 😡
Merci de votre Aide
A+

zeltron24 · 6 Mars 2014

Re : Problème Alimentation Combobox

Bonsoir Regeiro,

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

Regueiro · 6 Mars 2014

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

Regueiro · 7 Mars 2014

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

Problème Alimentation Combobox

Regueiro

XLDnaute Impliqué

zeltron24

XLDnaute Impliqué

Regueiro

XLDnaute Impliqué

Pièces jointes

Regueiro

XLDnaute Impliqué

Discussions similaires

Problème Alimentation Combobox

Regueiro

XLDnaute Impliqué

zeltron24

XLDnaute Impliqué

Regueiro

XLDnaute Impliqué

Pièces jointes

Regueiro

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency