XL 2013 [Résolu] format date listbox

Lone-wolf

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Test format Dates Chti160.xlsm
    23.9 KB · Affichages: 42

Lone-wolf

XLDnaute Barbatruc
Bonsoir Jean Marie :)

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

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.
 

Pièces jointes

  • ListBox (R- M - S).zip
    45 KB · Affichages: 35
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof