XL 2016 Formater colonne listbox

[KTM]

Bonsoir chers tous
je voudrais présenter des données dans mon listbox.
Mais ma colonne 3 affiche les chiffres dans un format diffèrent de ma base .
les nombres de ma colonne 3 doivent être à deux chiffres (00 - 11- 01-02-06 ........) comme dans ma base.
Merci.

 

[job75]

Bonsoir KTM,

Formatez le tableau VBA :

Private Sub UserForm_Initialize()
    Dim i&
    tbl = Range("A3:c11").Value
    For i = 1 To UBound(tbl)
        tbl(i, 2) = Format(tbl(i, 2), "00")
    Next
    ListBox1.List = tbl
End Sub

A+

 

[job75]

La propriété RowSource peut aussi être utilisée :

Private Sub UserForm_Initialize()
    Set tbl = Range("A4:C11")
    ListBox1.ColumnHeads = True
    ListBox1.RowSource = tbl.Address(External:=True)
End Sub

Mais perso je préfère utiliser la méthode List.

 

[ChTi160]

Bonsoir KTM
Peut-être avec un truc du genre Lol
Pas sûr d'avoir compris !

les nombres de ma colonne 3 doivent être à deux chiffres (00 - 11- 01-02-06 ........)

Option Explicit
Option Compare Text
Dim tbl
Dim Lgn As Long
Dim Col As Byte
Private Sub UserForm_Initialize()
        tbl = Range("A4:c11").Value
      With Me.ListBox1
        For Lgn = 1 To UBound(tbl, 1)
             .AddItem tbl(Lgn, 1)
          For Col = 2 To UBound(tbl, 2)
             .List(.ListCount - 1, Col - 1) = IIf(Col = 2, Format(tbl(Lgn, Col), "00"), tbl(Lgn, Col))
          Next Col
        Next Lgn
      End With
End Sub

bonne fin de Soirée
jean marie

 

[KTM]

Bonsoir KTM,

Formatez le tableau VBA :

Private Sub UserForm_Initialize()
    Dim i&
    tbl = Range("A3:c11").Value
    For i = 1 To UBound(tbl)
        tbl(i, 2) = Format(tbl(i, 2), "00")
    Next
    ListBox1.List = tbl
End Sub

A+

Merci Job75

 

[KTM]

Bonsoir KTM
Peut-être avec un truc du genre Lol
Pas sûr d'avoir compris !

Option Explicit
Option Compare Text
Dim tbl
Dim Lgn As Long
Dim Col As Byte
Private Sub UserForm_Initialize()
        tbl = Range("A4:c11").Value
      With Me.ListBox1
        For Lgn = 1 To UBound(tbl, 1)
             .AddItem tbl(Lgn, 1)
          For Col = 2 To UBound(tbl, 2)
             .List(.ListCount - 1, Col - 1) = IIf(Col = 2, Format(tbl(Lgn, Col), "00"), tbl(Lgn, Col))
          Next Col
        Next Lgn
      End With
End Sub

bonne fin de Soirée
jean marie

Merci infiniment