XL 2010 listbox

[Jeffijeff]

Bonjour à tous
Je redebute dans le vba que j'ai arrêté depuis environ 7 ans
J'ai une lisbox avec 4 colonnes
Je voudrais récupérer les valeurs des 4 colonnes de la ligne sélectionnée
Merci de votre aide

 

[mapomme]

Bonsoir Jeffijeff,

Un essai dans le fichier joint. Les valeurs sont récupérées dans un array à quatre éléments.

Private Sub ListBox1_AfterUpdate()
Dim Valeurs(1 To 4), i&
   If ListBox1.ListIndex >= 0 Then
      For i = 1 To 4
         Valeurs(i) = ListBox1.List(ListBox1.ListIndex, i - 1)
      Next i
      MsgBox Join(Valeurs, " , ")
   End If
End Sub

 

[BOISGONTIER]

Bonsoir,

Private Sub ListBox1_Click()
  Tbl = Application.Index(Me.ListBox1.List, Me.ListBox1.ListIndex + 1)
  MsgBox Join(Tbl, ",")
End Sub

JB

 

[Jeffijeff]

Merci, je testerai demain

 

[Jeffijeff]

Bonjour à vous
Comment deseclectionner une ligne de la lstbox afin d'enlever la surbrillance?
Merci

 

[Brigitte]

Bonjour tout le monde,

Je m'incruste ici pour redire à jeffijeff combien je suis contente d'avoir eu des nouvelles d'une "amie commune" (à première vue) qu'on ne voit plus. Je vous embrasse tous deux. Merciiii encore.

 

[Jeffijeff]

Je réponds à ma propre demande
Pour enlever la sélection il suffit de:
Listbox1.value=''''

Ça aidera peut être une autre personne

 

[Jeffijeff]

Bonjour,
J'ai créé la listbox1.columnheads=true
je ne vois pas comment on fait pour remplir l'entête
Merci