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 :

Récupérer une valeur calculée sur un sheet pour le renvoyer dans une listbox [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    20
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 20
    Par défaut Récupérer une valeur calculée sur un sheet pour le renvoyer dans une listbox
    Bonjour,
    Il semble que mon 1er message ne soit pas passé. Je vous le renvoie donc.
    Mon problème est le suivant: je saisis des données dans un userform qui sont envoyées dans un sheet. Des calculs de conformité sont effectués. Je souhaite récupérer certains de ces calculs dans le userform au niveau de listbox. Les données saisies s'incrémentant, seule la valeur de la dernière ligne doit être renvoyée. A l'heure actuelle, j'ai bien le retour au niveau de ma listbox, mais de la colonne entière !
    Quelqu'un a t-il la solution ?
    Merci d'avance.
    Cordialement

  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,
    A l'heure actuelle, j'ai bien le retour au niveau de ma listbox, mais de la colonne entière !
    Très bien. Peux-tu mettre le code STP parce que :
    seule la valeur de la dernière ligne doit être renvoyée
    Oui, mais de quelle feuille, de quelle colonne etc...?
    Peux-tu en dire un peu plus stp.

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    20
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 20
    Par défaut
    Bonjour,
    le code est le suivant:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    With Sheets("BD").Range("L1")
             Me.ListBox1.RowSource = "BD!L1:L1" & Sheets("BD").Cells(1, 12).End(xlDown).Row
         End With

  4. #4
    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
    Re,
    je ne sais pas si j'ai bien compris:
    Tu veux mettre dans la listbox la valeur de la dernière cellule utilisée de la colonne L?

    si c'est çà alors :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Me.ListBox1.AddItem Sheets("BD").Range("L" & Rows.Count).End(xlUp).Value

  5. #5
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Question de curiosité : cela sert à quoi une listbox avec une seule valeur?

    PGZ

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    20
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 20
    Par défaut
    Bonjour,
    Un grand merci à rvtoulon. Cela fonctionne enfin. J'ai tout de même mis ce code dans un bouton de commande car la valeur renvoyée était celle de la ligne précédente.
    Maintenant, je valide mes données et ensuite je demande le retour de la dernière cellule colonne L.
    Quant au choix de la listbox, en fait peu m'importe que ce soit une textbox, combobox ou listbox, je voulais juste un retour d'information dans une box. Comme j'ai différents contrôles en retour sur différentes colonnes et que certains sont numériques, la textbox me semblait proscrite et je souhaitais éviter une cascade de msgbox.
    En fait, j'essaie d'apprendre, tout cela est très interressant mais parfois très obscur !!!
    Encore merci et à bientôt
    Très certainement.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Récupérer la valeur de 2 colonnes de la ligne sélectionnée dans une ListBox
    Par chrisaccess dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 06/02/2015, 21h03
  2. Réponses: 2
    Dernier message: 21/01/2013, 16h44
  3. Réponses: 3
    Dernier message: 29/09/2009, 20h58
  4. cliquer sur un bouton pour tout selectionner dans une liste multiple
    Par PAYASS59 dans le forum Général JavaScript
    Réponses: 9
    Dernier message: 23/07/2007, 15h33
  5. chat:cliquer sur 1 smiley pour le mettre dans une conversati
    Par cocacollection dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 19/03/2006, 17h58

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