Bonjour à tous,
1)J'ai une date dans une cellulle au format "[$-409]d-mmm-yyyy;@"
2)Je la copie dans une liste box de la manière suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part If j = 6 Then .ListSubItems.Add , , Format(CDate(c.Offset(0, 5)), "[$-409]d-mmm-yyyy;@")
3)Je copie ensuite cette valeur dans une cellule préalablement formater au format "[$-409]d-mmm-yyyy;@"
à l'aide de ce code
La valeur dans la listbox (2) n'est pas au bon format, ainsi que la valeur de la cellule (3) n'est pas elle non plus au bon format.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Cells(i + 3, 6).Value = Format(CDate(Me.AffichageSelection.ListItems(i).SubItems(6)), "[$-409]d-mmm-yyyy;@")
Cependant si je double clique sur la cellule (3) elle se met au bon format.
Je pense que la valeur de la cellule (3) est une valeur texte et non date ...
Est ce que quelqu'un a une idée de mon erreur
En vous remerciant beaucoup
Partager