ListBox multicolonne et sources très variables

[Orodreth]

Bonjour à tous.

J'essaye de charger un listbox multicolonne avec une partie de tableau Excel, mais je n'y arrive pas.

J'ai essayé ce code là:

Do While ActiveSheet.Cells(i, 1).Value = dtpDateSearch.Value
    Dim j As Integer
    
        lstbxOpeFound.AddItem (Cells(i, 1).Value)
        lstbxOpeFound.List(i, 1) = Cells(i, 2).Value
        lstbxOpeFound.List(i, 2) = Cells(i, 3).Value
        lstbxOpeFound.List(i, 3) = Cells(i, 4).Value
        lstbxOpeFound.List(i, 4) = Cells(i, 5).Value
        lstbxOpeFound.List(i, 5) = Cells(i, 6).Value
        lstbxOpeFound.List(i, 6) = Cells(i, 7).Value
    i = i + 1
Loop

Je savais faire à une époque, mais là, je sèche complètement.
En fait, je clique sur un date-time-picker pour sélectionner une date, et je voudrais que chaque date identique à celle sélectionnée se retrouve dans ma listbox (pour que je puisse ensuite modifier celle qui m'intéresse)

J'ai beau cherché, je ne vois pas comment gérer ces multicolonnes 🙁

Si quelqu'un peut m'aider, je l'en remercie d'avance

Cordialement,
Thomas

 

[PascalXLD]

Re : ListBox multicolonne et sources très variables

Bonjour

essaie sun truc du genre

With lstbxOpeFound
.AddItem (Cells(i, 1).Value)
.List(.ListCount - 1, 1) = Cells(i, 2).Value
.List(.ListCount - 1, 2) = Cells(i, 3).Value
.List(.ListCount - 1, 3) = Cells(i, 4).Value
.List(.ListCount - 1, 4) = Cells(i, 5).Value
.List(.ListCount - 1, 5) = Cells(i, 6).Value
.List(.ListCount - 1, 6) = Cells(i, 7).Value
end With

 

[Orodreth]

Re : ListBox multicolonne et sources très variables

hello Pascal.

merci beaucoup, c'est exactement ce que je cherchais 🙂

Thomas

 

[Bebere]

Re : ListBox multicolonne et sources très variables

bonjour Orodreth

quelle est la valeur de la variable i au début

Do While ActiveSheet.Cells(i, 1).Value = dtpDateSearch.Value
With lstbxOpeFound
.AddItem (Cells(i, 1).Value)
.List(.ListCount - 1, 1) = Cells(i, 2).Value
.List(.ListCount - 1, 2) = Cells(i, 3).Value
.List(.ListCount - 1, 3) = Cells(i, 4).Value
.List(.ListCount - 1, 4) = Cells(i, 5).Value
.List(.ListCount - 1, 5) = Cells(i, 6).Value
.List(.ListCount - 1, 6) = Cells(i, 7).Value
End With
i = i + 1
Loop

à bientôt