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 :

[XL-2011] Récupérer valeur Listbox SANS sélection


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2014
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2014
    Messages : 8
    Par défaut [XL-2011] Récupérer valeur Listbox SANS sélection
    Bonjour,

    J'aimerai savoir comment récupérer la valeur du ième élément de la 2ème colonne ce ma listbox et tout ça, sans le sélectionner. J'ai eu beau chercher partout, a chaque fois il faut sélectionner.

    Je m'explique : J'ai une feuille excel de plusieurs centaines de lignes. Dans une Listbox (elle même dans un Userform), je récupère certaines lignes de cette feuille excel. J'ai créer un bouton afin que tous les éléments contenu dans la ListBox soient supprimés de ma feuille. Or je n'arrive pas à récupérer la valeur du ième élément de ma ListBox sans la sélectionner.

    Pour faire simple, voici un schéma :

    Nom : Capture d’écran 2014-05-14 à 09.37.09.png
Affichages : 1032
Taille : 172,9 Ko

    J'ai déjà écrit un bout de code, mais il me reste a savoir comment récupérer l'élément. Si vous avez des conseils d'optimisation ou autre, je suis preneur

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Private Sub CommandButton2_Click()
        
    Dim i As Integer, j As Integer
    i = 0
    j = 2
       
    
    'Tant que i <= nombre d'éléments dans la ListBox 
        While i <= ListBox1.ListCount - 1
            'Tant que le ième élément de la ListBox est différent du jème élément de la feuille Excel
            While ??????? <> Cells(j, 10).Value
                'Si j > nombre de lignes de ma feuille excel alors message d'erreur
                If j > Cells(Rows.Count, 10).End(xlUp).Row Then
                    MsgBox "Erreur, l'algorithme bug"
                Else
                    j = j + 1
                End If
            Wend
            Cells(j, 1).EntireRow.Delete
            i = i + 1
            j = 2
        Wend
        
        
    End Sub
    Merci

  2. #2
    Invité
    Invité(e)
    Par défaut Bojour,
    dans cette liste tu n'as que les élément a supprimer? ou il y à des élément que tu veux garder?
    Dernière modification par AlainTech ; 16/05/2014 à 22h51. Motif: Suppression de la citation inutile

  3. #3
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    Bonjour

    un exemple
    'te donne la valeur de la première ligne en première colonne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    msgbox listbox1.list(0,0)
    'te donne la valeur de la 4 emme ligne en 3 emme colonne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    msgbox listbox1.list(3,2)
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  4. #4
    Membre habitué
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2014
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2014
    Messages : 8
    Par défaut
    @rdurupt : Oui je n'ai que des éléments à supprimer

    Citation Envoyé par patricktoulon Voir le message
    Bonjour

    un exemple
    'te donne la valeur de la première ligne en première colonne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    msgbox listbox1.list(0,0)
    'te donne la valeur de la 4 emme ligne en 3 emme colonne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    msgbox listbox1.list(3,2)
    Merci, ça semble être exactement ce qu'il me faut, je vais essayer ça tout de suite

    EDIT : Merci, ça fonctionne parfaitement ! [RÉSOLU]

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

Discussions similaires

  1. [MVVM] Récupérer valeur listbox générée par une BDD
    Par edwix dans le forum Windows Presentation Foundation
    Réponses: 4
    Dernier message: 16/11/2012, 11h59
  2. Récupérer valeur listbox
    Par alexxxx69 dans le forum ASP.NET MVC
    Réponses: 8
    Dernier message: 12/10/2011, 16h08
  3. Comment récupérer valeur ListBox dans Servlet
    Par doukha dans le forum GWT et Vaadin
    Réponses: 5
    Dernier message: 17/01/2011, 11h19
  4. récupérer valeur listbox selection multiple
    Par titou624 dans le forum C#
    Réponses: 9
    Dernier message: 18/05/2010, 09h09
  5. Récupérer valeurs listbox choix multiple
    Par biquet52 dans le forum IHM
    Réponses: 3
    Dernier message: 11/09/2008, 09h07

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