Remplir listbox a partir d'une suite de cellule excel

Résolu
wiraboudi -  
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

5 réponses

  1. michel_m Contributeur
    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
    1. wiraboudi Auteur
      merci pour la reponse michel_m mais j'ai toujours l'erreur 424 Objet requis
      0
    2. michel_m Contributeur
      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
    3. wiraboudi Auteur
      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
  2. lermite222 Contributeur
    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
    1. michel_m Contributeur
      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
    2. wiraboudi Auteur
      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
  4. wiraboudi Auteur
    merci d'avance pour votre reponse
    0
    2. wiraboudi Auteur
      Merci infiniment Lermite j'ai telecharger le fichier ca fonctionne correctement

      Merci pour l'aide
      0