Remplir listbox a partir d'une suite de cellule excel

Résolu/Fermé
wiraboudi Messages postés 7 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 8 novembre 2013 - 1 nov. 2013 à 15:04
wiraboudi Messages postés 7 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 8 novembre 2013 - 8 nov. 2013 à 00:37
Bonjour,

j'essaie de remplir une liste box (liste12) avec les valeur d'une cellule sur une page excel (prev) voici le code mais l'erreur 424 s'affiche Objet requis:


Sub Worksheet_Activate()
Dim Valeur1 As String, Valeur2 As String, Valeur3 As String
Dim Valeur4 As String, Valeur5 As String, Valeur6 As String
Valeur1 = Sheets("sprev").Range("d3").Value
Liste12.List = Valeur1
End Sub



merci d'avance
A voir également:

5 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
1 nov. 2013 à 16:32
Bonjour

essaies
Liste12.AddItem Valeur1

mais pourquoi utiliser une listbox pour 1 seule donnée ?

pour les syntaxes des contrôles d'USF
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G


2
wiraboudi Messages postés 7 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 8 novembre 2013
1 nov. 2013 à 22:29
merci pour la reponse michel_m mais j'ai toujours l'erreur 424 Objet requis
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 2/11/2013 à 08:46
Bonjour,

Ou se trouve ta listbox: sur une feuille, dans un formulaire ?

au besoin:
mettre le classeur (ou un extrait si classeur>1mo) sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse

et je me permets, certes impoliment, de satisfaire ma curiosité :
mais pourquoi utiliser une listbox pour 1 seule donnée ?
0
wiraboudi Messages postés 7 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 8 novembre 2013
3 nov. 2013 à 02:32
merci michel pour vos reponses voici le lien vers mon fichier https://www.cjoint.com/?0KdcBF4W7Cm

et pour ta question prq une liste box pour 1 seule donnée?

je n'ai pas une seul données mais j'essaie just de faire fonctionné l'option pour charger les cellules en suite en suite j'ajouterai le reste des données
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 nov. 2013 à 16:19
Bonjour, bonjour Michel,
Si j'extrapole un peu et d'après le titre a partir d'une suite de cellule excel je supose que ce sont les cellules de D3 à D8
Je ferais donc...
La liste sur une feuille
ListBox1.ListFillRange = "sprev!D3:D8"
La liste sur un UserForm
ListBox1.RowSource = "sprev!D3:D8"
A+

1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
2 nov. 2013 à 20:26
salut Lermite, ça va ?

tout à fait d'accord avec toi mais la demande est floue et avec un minimum d'explication du contexte et pour ma part, je n'anticipe plus une réponse (surtout qu'on se fait très souvent eng...)!

Bon dimanche
0
wiraboudi Messages postés 7 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 8 novembre 2013
3 nov. 2013 à 02:35
merci pour la reponse lermite
ma liste existe sur une feuille excel et voici un visuel sur ce lien
https://www.cjoint.com/?0KdcBF4W7Cm

mais j'ai essayé ListBox1.ListFillRange = "sprev!D3:D8" et elle n'a pas fonctionné j'ai toujours l'erreur 424 objet requis


merci a tous
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
3 nov. 2013 à 06:10
1
wiraboudi Messages postés 7 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 8 novembre 2013
Modifié par wiraboudi le 1/11/2013 à 15:05
merci d'avance pour votre reponse
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
wiraboudi Messages postés 7 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 8 novembre 2013
8 nov. 2013 à 00:37
Merci infiniment Lermite j'ai telecharger le fichier ca fonctionne correctement

Merci pour l'aide
0