[VBA-E] Remplir combobox à partir de cellules

Résolu/Fermé

yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 - 24 mai 2013 à 11:20
yous - 8 nov. 2013 à 02:40

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 !

A voir également:

Remplir combobox vba
Organigramme a remplir word - Guide
Remplir et signer pdf - Guide
Excel compter cellule couleur sans vba - Guide
Find vba - Astuces et Solutions
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
24 mai 2013 à 11:45

Bonjour,

essaie avec cell.value

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

eric

yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 39
24 mai 2013 à 11:49

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 !

Réponse 2 / 2

foo
24 mai 2013 à 11:52

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

yous
8 nov. 2013 à 02:40

merci

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Remplir une cellule (texte) en fonction d'une autre (texte).

ouverture d'un fichier excel à partir d'un code VBA

appliquer une pause dans une macro vba excel