IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Remplir listbox sans Rowsource


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Inscrit en
    Avril 2013
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Avril 2013
    Messages : 2
    Par défaut Remplir listbox sans Rowsource
    Bonjour,

    je viens chercher un petit coup de main sur ce forum.
    J'ai une listbox que je dois remplir avec des données présentent dans une colonne excel. Mais la liste est variable, je l'ai donc nommé grâce à un nom dynamique.
    Je peux utiliser rowsource mais je voudrais éviter... est-il possible de le faire avec additem ? Si oui comment?

    le nom défini est dans la feuille 4 et s'appelle NOM

    mercio d'avance

  2. #2
    Membre Expert Avatar de rvtoulon
    Homme Profil pro
    Agent Technique
    Inscrit en
    Mars 2009
    Messages
    1 042
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Agent Technique
    Secteur : Santé

    Informations forums :
    Inscription : Mars 2009
    Messages : 1 042
    Par défaut
    bonjour,
    voici une idée:
    je définie ma list qui se trouve en colonne A à partir de A1 jusqu'à la dernière cellule utilisée de ma colonne et j'utilise la propriété list de la listbox
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    malist = Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row)
    Me.ListBox1.List = malist
    ou j'utilise une plage nommée MOIS:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    malist = Range("MOIS")
    Me.ListBox1.List = malist


    A toi d'adapter.

  3. #3
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
        Dim C As Range
        With Sheets("Feuil1")
            For Each C In [Plage]
                Me.ListBox1.AddItem C.Value
            Next C
        End With

  4. #4
    Membre éclairé
    Femme Profil pro
    Inscrit en
    Février 2013
    Messages
    56
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations forums :
    Inscription : Février 2013
    Messages : 56
    Par défaut
    Bonsoir,

    le nom défini est dans la feuille 4 et s'appelle NOM
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Me.ListBox.List=[NOM].Value2
    CEUZIN

Discussions similaires

  1. Remplir listbox sur base d'une autre listbox
    Par jujujulien dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 18/05/2007, 08h46
  2. [C# Threads] Remplir listbox
    Par PoZZyX dans le forum Windows Forms
    Réponses: 9
    Dernier message: 09/04/2007, 16h00
  3. ListBox sans Doublons
    Par pobrouwers dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 20/02/2007, 17h41
  4. pb remplir Listbox dynamique
    Par maniolo dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 10/08/2006, 18h50
  5. Listbox sans scrollbar?
    Par mekacom dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 06/07/2006, 23h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo