Discussion :

[vincedu74]

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

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;@")

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.

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
with Cells(i + 3, 6)
    .Value = CDate(Me.AffichageSelection.ListItems(i).SubItems(6))
    .numberformat="[$-409]d-mmm-yyyy;@"
end with

Regarde l'aide sur Format

[vincedu74]

Merci Mercatog et j'avais bon espoir ....

J'ai le même souci

NB : au dela du format qui n'est pas celui que je veux lorsque je compare les cellules (3) entre elles , Excel est incapable de faire la comparaison

[unparia]

Bonjour

1) toujours spécifier la propriété utilisée d'un objet dont on extrait une propriété

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;@")

ne précise pas la propriété utilisée de la cellule pointée
2) Une listbox contient des chaînes de caractères
Y envoyer donc la propriété Text de la cellule et ne rien formater de cette propriété !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If j = 6 Then .ListSubItems.Add , , c.Offset(0, 5).text

3) envoyer ce contenu de la listbox à la cellule d'accueil, préalablement formatée [$-409]d-mmm-yyyy;@

[vincedu74]

C'est génial ça fonctionne !!!! Merci Merci Merci

J'ai encore un problème de format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NoM = InputBox("Documents to provide before (DD/MM/YY) : ", "Before DD/MM/YY")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[F2] = NoM

Or j'ai correctement paramétré ma cellule avec le format "[$-409]d-mmm-yyyy;@"

Il ne me la met pas à ce format là

Je suis sur que vous savez pourquoi !!!


Merciiiii

[Marc-L]

Bonjour, bonjour !

Pourtant toi aussi tu le sais déjà :  du texte ne peut pas être un nombre, la vraie nature d'une date dans Excel ‼
La solution étant pourtant déjà présente dans les codes proposés !

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …