Choisir ses colonnes pour la ListBox ?

Bonjour à toutes et tous

Je cherche une méthode qui puisse me permettre de choisir 5 colonnes sur 9 pour ma ListBox

je voudrais les colonnes A -B-C- D-E-J qui se trouvent dans ma base de données "Patient"

merci de bien vouloir m'aider encore une fois

Amicalement

Pierrot

Bonjour,

Exemple en PJ

    Set f = Sheets("feuil1")
    ColVisu = Array(1, 2, 4, 7)          ' colonnes à visualiser
    bd = f.Range("A2:G" & f.[A65000].End(xlUp).Row).Value
     Dim Tbl: ReDim Tbl(1 To UBound(bd), 1 To 4)
     j = 0
     For Each k In ColVisu
        j = j + 1
        For i = 1 To UBound(bd)
           Tbl(i, j) = bd(i, k)
        Next i
    Next k
    ListBox1.List = Tbl

Ceuzin

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

À tester ...

Joseph

Bonjour, ceuzin ,Joseph,

merci de la rapidité de vos réponses

La réponse de ceuzin fonctionne bien sur l'exemple

celle de joseph est déjà installée dans le fichier, mais je ne vois pas ou à lieu le changement, qui fonctionne bien également

par contre, sur la version de Joseph, le DTPicker à disparu

Je vais installer les deux versions et je jugerai après

si je peux trouver le code modifié, ma préférence va à la version de Joseph

un grand merci à vous deux et bonne soirée

Amicalement

Pierrot

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

Désolé pour le manque de communication.

Peu de changement au bas de cette macro :

Sub InitListBox(Filtre As String, Colonne As Integer)
Dim J As Long

If Filtre = "" Then Filtre = "*"
    With Me.ListBox1
        .Clear
        For J = 3 To Ws.Range("B" & Rows.Count).End(xlUp).Row
            If UCase(Ws.Cells(J, Colonne)) Like Filtre Then
                .AddItem Ws.Cells(J, "A")
                .List(.ListCount - 1, 1) = Ws.Cells(J, "B")
                .List(.ListCount - 1, 2) = Ws.Cells(J, "C")
                .List(.ListCount - 1, 3) = Ws.Cells(J, "D")
                .List(.ListCount - 1, 4) = Ws.Cells(J, "E")
                .List(.ListCount - 1, 5) = Ws.Cells(J, "F")
''                .List(.ListCount - 1, 6) = Ws.Cells(J, "G")  ' à désactiver
''                .List(.ListCount - 1, 7) = Ws.Cells(J, "H")  ' à désactiver
''                .List(.ListCount - 1, 8) = Ws.Cells(J, "I")  ' à désactiver

                .List(.ListCount - 1, 6) = Format(Ws.Cells(J, "J"), "#0.00") & " €"  ' changé no colonne pour 6, ajouté un format et un symoble
                .List(.ListCount - 1, 9) = j
            End If
        Next J
        If .ListCount = 1 Then .ListIndex = 0
    End With
End Sub

Joseph

Bonjour, Joseph et un grand merci, du moins, maintenant, je sais comment faire pour choisir mes colonnes

encore merci et bonne journée

Amitiés

Pierrot