connaitre place de chaque element dans la listbox

[carlos]

Bonjour
je tourne en rond pouravec les listbox.list() et listindex ...

j'ai une listbox composée de 5 éléments (nom ) qui sont appelé d'une liste sur excel range("a1:a5").Ces élements peuvent changer de place dans la listbox (0 cause des drag and drop")
J'aimerai pouvoir travailler sur chaque élement de la listbox.
Ex : connaitre la position de chaque élement de la listbox et mettre en colonne "b1:b5" place qu'il occupe dans la listbox

Merci

Carlos

 

[jp14]

Re : connaitre place de chaque element dans la listbox

Bonjour

Une solution consiste à associer à un élément de la "listbox" ou "combobox" des informations cachées à l'affichage.

ci dessous un exemple avec un "combobox"

With ComboBox1
.ColumnCount = 4 ' 4 colonnes
.ColumnWidths = "90;90;0;0" ' les colonnes 1 et 2 sont visibles
.Style = fmStyleDropDownList '
.BoundColumn = 1 ' combobox1.text contient le nom
.ColumnHeads = True



For Each cellule In Sheets(nomfeuille1).Range(debplag1 & Range("a65536").End(xlUp).Row)
'For Each cellule In Sheets(nomfeuille1).Range(col1 & "2:" & col1 & Range("a65536").End(xlUp).Row)
If cellule.Value <> "" Then
.AddItem cellule.Value ' valeur de la première colonne
.List(.ListCount - 1, 1) = cellule.Offset(0, 1).Value ' deuxième colonne
' par exemple première colonne nom deuxième prénom
.List(.ListCount - 1, 2) = cellule.Address(0, 0) ' cellule qui contient le nom
.List(.ListCount - 1, 3) = nomfeuille1 ' nom de l'onglet ou se trouve l'information

End If
Next cellule
End With


JP

 

[skoobi]

Re : connaitre place de chaque element dans la listbox

Bonjour le fil,
une autre proposition:

For n = 1 To 5
    Range("b" & n) = ListBox1.List(n)
Next

 

[carlos]

Re : connaitre place de chaque element dans la listbox

Bonsoir Jp14 et skoobi

Grace à vous j'ai enfin résolu mon probleme

Merci