XL 2013 [Résolu] format date listbox

Lone-wolf · 23 Mars 2017

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 · 23 Mars 2017

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 🙂

VB:

    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 · 23 Mars 2017

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 · 23 Mars 2017

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 · 23 Mars 2017

Ok
Bonne fin de Soirée
Amicalement
Jean marie

XL 2013 [Résolu] format date listbox

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Discussions similaires

XL 2013 [Résolu] format date listbox

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency