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 :

x = listbox1.value


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2002
    Messages
    391
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Santé

    Informations forums :
    Inscription : Novembre 2002
    Messages : 391
    Par défaut x = listbox1.value
    Bonjour,
    Je voudrais extraire la ligne sélectionnée d'une listBox.
    ne marche pas.
    J'ai essayé des tas de codes, mais je n'y arrive pas.
    Quel code employer ?
    Merci si vous pouvez me dépanner.

  2. #2
    Membre confirmé
    Inscrit en
    Février 2007
    Messages
    118
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 118
    Par défaut
    Bonjour,

    Déjà , il faudrait savoir si ta listbox est dans une userform ou dans une sheet ? Comment est-elle alimentée ?

    Sinon, qqch comme ceci devrait fonctionner :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    For i = 1 To UserForm1.ListBox1.ListCount
        MsgBox UserForm1.ListBox1.List(i - 1)
    Next i

  3. #3
    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
    Bjr,
    pour Sur l'évènement double clic de la listbox en donnant pour l'exemple à la cellule B10 la valeur sélectionnée dans la listbox
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    x = Me.ListBox1.Value
    [B10] = x
    End Sub
    @+

  4. #4
    Membre éclairé
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2002
    Messages
    391
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Santé

    Informations forums :
    Inscription : Novembre 2002
    Messages : 391
    Par défaut
    Merci de me répondre.

    Le classeur très simple, pour essai, a 3 feuilles A,B et C.
    La listBox est dans la feuille "A" qui possède aussi le CommandButton1.
    Voici le code dans la feuille "A" :
    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
     
    Option Explicit
        Dim xListe As Variant
        Dim x As Variant
     
     
    Private Sub ListBox1_Click()
      Dim i  As Integer
     
        Sheets("A").Select
        ListBox1.Clear
        xListe = Array("A", "B", "C")
        For i = 0 To 2
            ListBox1.AddItem Range("A1").Offset(i, 0).Value
        Next
     
    End Sub
    Private Sub CommandButton1_Click()
              x = Sheets("A").ListBox1.SelectedItem.Value
    MsgBox (x)
     
    End Sub
    J'ai fait un programme assez important, mais devant mes difficultés avec listBox, j'ai écrit ce petit truc, plus facile pour mes essais.

    Merci pour l'aide.

  5. #5
    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, j'ai légèrement modifié ton code :
    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
    Option Explicit
     Dim xListe As Variant
        Dim x As Variant
     
    Private Sub CommandButton1_Click()
    Dim x As String
       x = Me.ListBox1.Value
    MsgBox x
     
    End Sub
    Private Sub ListBox1_GotFocus()
     Dim i  As Integer
     
      Me.ListBox1.Clear
        xListe = Array("A", "B", "C")
     
        For i = 0 To 2
            Me.ListBox1.AddItem (Range("A1").Offset(i, 0).Value)
        Next
     
    Me.ListBox1.ListIndex = 0
    End Sub
    J'ai remarqué que sur l'évènement click de la listbox sa coince alors qu'avec l'évènement GotFocus non. ??
    Bref comme ceci ça fonctionne

  6. #6
    Membre éclairé
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2002
    Messages
    391
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Santé

    Informations forums :
    Inscription : Novembre 2002
    Messages : 391
    Par défaut
    Merci rvtoulon, ça marche.
    Je vais pouvoir continuer après 2 jours de panne !

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

Discussions similaires

  1. Calcul du plu court chemin entre 2 sommets d'un graphe valué
    Par atlasm dans le forum Algorithmes et structures de données
    Réponses: 25
    Dernier message: 07/08/2005, 17h06
  2. Index et Unique Value
    Par koukise dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 07/06/2004, 18h32
  3. [MFC]Value Controle dans un comboBox
    Par jul54 dans le forum MFC
    Réponses: 6
    Dernier message: 10/02/2004, 09h57
  4. Réponses: 4
    Dernier message: 18/11/2003, 16h08
  5. [VBA-E] avec une fonction value
    Par laas dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 28/11/2002, 13h22

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