Remplir listbox a partir d'une suite de cellule excel

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

Réponse 1 / 5
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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   Statut Membre Dernière intervention  
 
merci pour la reponse michel_m mais j'ai toujours l'erreur 424 Objet requis
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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   Statut Membre Dernière intervention  
 
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
Réponse 2 / 5
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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   Statut Membre Dernière intervention  
 
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
Réponse 3 / 5
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Ton classeur en retour
A+
1
Réponse 4 / 5
wiraboudi Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
merci d'avance pour votre reponse
0

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

Posez votre question
Réponse 5 / 5
wiraboudi Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Merci infiniment Lermite j'ai telecharger le fichier ca fonctionne correctement

Merci pour l'aide
0