Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ListBox multicolonne et sources très variables

  • Initiateur de la discussion Initiateur de la discussion Orodreth
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Orodreth

XLDnaute Impliqué
Bonjour à tous.

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

Code:
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
323
Réponses
17
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…