XL 2013 Format listbox

[SARA36]

Bonjour

j'ai une listebox de 13 colonnes affichés en format numérique çi dessous le code :



For C = 1 To 13: TS(LS, C) = Format(TE(LE, C), "#,##0"): Next C, LS
ListBox1.List = TS

je veux que seule la colonne 1 s'affiche en forma date et que le reste s'affiche en format numérique, donc j'ai fait le code suivant :

For C = 1 To 1: TS(LS, C) = Format(TE(LE, C), "dd/mm/yyyy"): Next C, LS
ListBox1.List = TS
For C = 2 To 12: TS(LS, C) = Format(TE(LE, C), "#,##0"): Next C, LS
ListBox1.List = TS

Malheureusement ça marche pas est ce quelqu'un peut m'aider svp ?

Merci

 

[Dranreb]

Re : Format listbox

Bonjour.
Pourquoi faites vous une boucle pour un seul élément ? C'est absurde !
Surtout que ça vous a conduit à Next C, LS qui revient à Next C: Next LS or ce Next LS est de toute évidence de trop à cet endroit.
Faites tout simplement: TS(LS, 1) = Format(TE(LE, 1), "dd/mm/yyyy") à la place de la 1ère boucle.
Ou encore plus simplement: TS(LS, 1) = TE(LE, 1) parce que c'est le format appliqué par défaut pour une date.

 

[SARA36]

Re : Format listbox

deux mots et c'est résolu ..comme toujours d’ailleurs .. chapeau merci Dranreb