[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
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA

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 260
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

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

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

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

[Excel 2010] Remplir cellule d'après contenu d'une autre

Bonjour

Sur mon fichier, la colonne C contient des années de naissance ; j'aimerais qu'en fonction de l'année il me remplisse automatiquement la colonne D avec la catégorie d'âge correspondante.
Comment puis-je faire ?

Merci d'avance

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...