Remplir listbox a partir d'une suite de cellule excel

Résolu
wiraboudi Messages postés 7 Statut Membre -  
wiraboudi Messages postés 7 Statut Membre -
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 Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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 Messages postés 7 Statut Membre
       
      merci pour la reponse michel_m mais j'ai toujours l'erreur 424 Objet requis
      0
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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 Messages postés 7 Statut Membre
       
      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 Messages postés 9042 Statut Contributeur 1 199
     
    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 Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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 Messages postés 7 Statut Membre
       
      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 Messages postés 7 Statut Membre
     
    merci d'avance pour votre reponse
    0

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

    Posez votre question
  6. wiraboudi Messages postés 7 Statut Membre
     
    Merci infiniment Lermite j'ai telecharger le fichier ca fonctionne correctement

    Merci pour l'aide
    0