XL 2016 Formater colonne listbox

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

Cliquez pour agrandir...

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

job75 à dit:

Bonsoir KTM,

Formatez le tableau VBA :

VB:

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+

Cliquez pour agrandir...

ChTi160 à dit:

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

VB:

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

Cliquez pour agrandir...