XL 2010 listbox

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Octobre 2016

• #2

Bonsoir Jeffijeff,

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

VB:

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

 

Pièces jointes

• Jeffijeff- ListBox- v1.xlsm

  15.6 KB · Affichages: 62

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 28 Octobre 2016

• #3

Bonsoir,

Code:

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

JB

 

Pièces jointes

• FormListBoxMultiCol.xls

  37.5 KB · Affichages: 76

Dernière édition: 28 Octobre 2016

Vote positif 0 Vote négatif

J

Jeffijeff

Guest

• 28 Octobre 2016

• #4

Merci, je testerai demain

 

Vote positif 0 Vote négatif

J

Jeffijeff

Guest

• 31 Octobre 2016

• #5

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

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 1 Novembre 2016

• #6

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.

 

Vote positif 0 Vote négatif

J

Jeffijeff

Guest

• 1 Novembre 2016

• #7

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

Ça aidera peut être une autre personne

 

Vote positif 0 Vote négatif

J

Jeffijeff

Guest

• 12 Novembre 2016

• #8

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

 

Vote positif 0 Vote négatif