XL 2013 [Résolu] format date listbox

[Lone-wolf]

Bonjour à tous 🙂

Voilà, j'initialise la ListBox comme ceci

tablo = ws.Range("a2:g" & ws.[G80000].End(xlUp).Row).Value

ListBox1.List = tablo()

Les colonnes D - E -F de la feuille sont des dates au format "dd.mm.yyyy", mais
dans la ListBox "dd/mm/yyyy"

Comment avoir, à partir de tablo() , le même format que les celllules?

J'ai essaié en mettantant If IsDate(tablo, 4) Then, mais la syntaxe est fausse.

Ce qui est bizarre, si je met Listbox1.RowsSource = "Factures!$A$2:$G$80000" la ListBox affiche les dates au même format que les cellules.

 

[Lone-wolf]

Re à tous 🙂

Bon bein, j'ai trouvé la solution grace au tutos ListBox de Jacques Boigontier. Il est vrai aussi que j'aurais dû regarder un peu plus sur son site.

Merci Jacques 🙂

    With ws
        tbl1 = .Range("a2:g" & .[A80000].End(xlUp).Row).Value
    End With

    ReDim tbl2(1 To UBound(tbl1), 1 To 7)
    k = 0

    For Each c In Array(1, 2, 3, 4, 5, 6, 7)
        k = k + 1
        For i = 1 To UBound(tbl1): tbl2(i, k) = tbl1(i, c): Next i
    Next c

    For col = 4 To 6
        For i = 1 To UBound(tbl1)
            tbl2(i, col) = Format(tbl1(i, 4), "dd.mm.yyyy")
        Next i
    Next col

 

[ChTi160]

Bonsoir Lone-wolf
Bonsoir le fil,Le Forum

bien que le fil soit Clos
j'ai teste et j'ai obtenu ce que tu voulais sans passer par les Boucles
sans fichier on ne peut savoir quel est le format de tes données ???
voir fichier joint .
Bonne fin de journée
Amicalement
jean marie

 

[Lone-wolf]

Bonsoir Jean Marie 🙂

Il n'est pas clôt, je n'ai pas fermé à clé 😀

Voici le fichier

EDIT: le probléme venait des cellules. Comme j'avais fait un copier coller, je n'ai pas vérifier si c'était de vraies dates.

 

[ChTi160]

Ok
Bonne fin de Soirée
Amicalement
Jean marie