Listbox plusieurs colonnes

Bonjour

j'ai la macro suivante qui me permettra de faire remonter le personnel engagé sur une tache

tout fonctionne bien à savoir

que

 MsgBox (TblBd2(j, 3) & " " & TblBd2(j, 13))

me renvoi bien les bonnes données

je tente désormais de la faire apparaitre dans ma listbox mais n'y arrive pas..

List_Staff_Projects(i, 1) = TblBd2(j, 3) me renvoi incompatibilité de type

mon deuxième soucis a voir plus tard sera a eviter les doublons en remontées...

Public Sub List_Staff()

Dim ColVisu(), LargeurCol(), Rng As Range

NomTableau = "T_Staff"
  TblBd = Range(NomTableau)

   ColVisu = Array(1, 3, 4)

    LargeurCol = Array(10, 50, 50)
    List_Staff_Projects.ColumnCount = Range(NomTableau).Columns.Count - 9
   List_Staff_Projects.ColumnWidths = Join(LargeurCol, ";")

    Dim Tbl()
  For i = 1 To UBound(TblBd)

     If TblBd(i, 3) = UCase(PI_Name) And TblBd(i, 4) = PI_FirstName Then

    NomTableau2 = "Projects"
  TblBd2 = Range(NomTableau2)
      Dim Tbl2()
  For j = 1 To UBound(TblBd2)
    If (TblBd2(j, 1) = TblBd(i, 1)) Then

   MsgBox (TblBd2(j, 3) & " " & TblBd2(j, 13))

   ' List_Staff_Projects(i, 2) = TblBd2(j, 3)

    End If

    Next j

    End If
   Next i
'   If N > 0 Then List_Staff_Projects.Column = Tbl Else List_Staff_Projects.Clear
End Sub

Merci par avance pour votre aide

Bonjour,

La variable qui vous pose problème, List_Staff_Projects, n'est pas déclarée dans le sub que vous présentez. Difficile de savoir ce qu'elle contient, et donc encore plus pourquoi vous avez une erreur.

Je suppose, vu le nom, qu'il s'agit de la liste des noms du personnel, dans ce cas essayez la conversion de type:

List_Staff_Projects(i, 2) = CStr(TblBd2(j, 3))

Merci pour votre retour

cela ne fonctionne pas ..

Toutefois la List_Staff_Projects est bien déclaré

NomTableau = "T_Staff"
TblBd = Range(NomTableau)

ColVisu = Array(1, 3, 4)

LargeurCol = Array(10, 50, 50)
List_Staff_Projects.ColumnCount = Range(NomTableau).Columns.Count - 9
List_Staff_Projects.ColumnWidths = Join(LargeurCol, ";")

du reste je peux afficher en direct dedans mais c'est la liaison avec projet qui me pose soucis

car avoir le nom que je connais ne m'apporte rien mais via l'id du projet je peux aller en recupérer l'acronyme etc.

Excusez moi, je n'avais pas compris que List_Staff_Projects etait le nom de votre Listbox.

N'ayant pas les compétences concernant les controles ActiveX, je laisse quelau'un d'autre vous guider.

j'ai tenté de remplacer la ligne qui me pose soucis car après tout normal

' List_Staff_Projects(i, 2) = TblBd2(j, 3)

cependant je ne suis pas au bout de mes peines

car je dois me mélanger entre les i, j et k ..

ce qui me renvoi l'indice n'appartient pas à la sélection

For Each k In ColVisu
C = C + 1: Tbl(C, N) = TblBd(i, k)
Tbl(1, N) = TblBd2(j, 3)
Next k

une petit aide serait bienvenue