[VBA-E] Remplir combobox à partir de cellules

Résolu
yacleouf Messages postés 438 Date d'inscription   Statut Membre Dernière intervention   -  
 yous -
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 !



2 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

essaie avec cell.value

Et prend l'habitude de typer tes variables :
Dim cell as range, Plage as range

eric
2
yacleouf Messages postés 438 Date d'inscription   Statut Membre Dernière intervention   39
 
Bonjour eriiic,
merci ! c'était bien un simple "cell.value" qui manquait !
concernant les variables je les ai typés après, j'avais un peu codé trop vite,

merci encore !
0
foo
 
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
0
yous
 
merci
0