[VBA-E] Remplir combobox à partir de cellules Résolu

Question

Bonjour, 

pour réussir à remplir ma combobox, j'ai créer le code suivant :

dans userform_initialize()

Dim cell, Plage
Set Plage = Sheets("Param").Range("I3:I14")
For Each cell In Plage
If cell.Value <> "" Then
Me.liste.AddItem cell
End If
Next cell


je ne vois pas ou est mon erreur ? Excel se stoppe sur la ligne suivante
Me.liste.AddItem cell
avec le message suivant :
Run-time error '-2147352571 (80020005)

Type mismatch.

j'essaie simplement d'insérer une string du type "ABCD1234" sans espace ou autres ??

merci d'avance pour vos éclaircissement !


Configuration: VGN-cs21S, windows 7 professionnel 64bits

eriiic · Accepted Answer

Bonjour,

essaie avec cell.value

Et prend l'habitude de typer tes variables : 
Dim cell as range, Plage as range

eric

foo · Answer

Bonjour

ex : Faire une colonne  D dans la Feuil1 


Me.ComboBox1.Clear
    For L = 2 To Feuil1.Range("D" & Rows.Count).End(xlUp).Row
        ComboBox1.AddItem Feuil1.Range("D" & L)
    Next

[VBA-E] Remplir combobox à partir de cellules

2 réponses

Discussions similaires

Newsletters