Format dans ListBox

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:

---

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:

---

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

Code:

---

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

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

Bonjour

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

Code:

---

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:

---

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

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

J'ai encore un problème de format

Code:

---

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

---

Code:

---

[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

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, …

Au tout début, j'ai paramétré ma variable comme une date et c'est lorsque je l'inscris dans F2 qu'elle est considérée comme du texte. C'est pourquoi j'ai voulu appliqué la solution proposée à savoir : paramétrer la variable comme du texte et l'inscrire dans la cellule au préalable formatée au format date.

Le problème persiste et n'est résolu que lorsque je double clique sur la cellule F2.

As tu une idée d'où provient le souci ?

Merci de ne pas citer l'intégralité d'un message juste précédent, cela nuit à la lisibilité !

Oui encore une fois comme déjà décrit c'est du texte et donc en aucun cas une date ‼

Juste en consultant l'aide de la fonction InputBox et en vérifiant la variable durant l'exécution du code
via la fenêtre Variables locales car le code présenté ne correspond pas du tout à cette description
ni ne reprend même pourtant la solution offerte sur un plateau par unparia (à qui j'adresse mes salutations !) …

Merci pour vos réponse,

Je souhaitait faire un filtre en fonction de la variable NoM (une date)

Mon problème venait du format de cette date dans le filtre.

J'ai donc créé une colonne supplémentaire dans lequel je mets le résultat de ma comparaison entre NoM et les données de la colonne.

Je filtre ensuite sur "VRAI" ou "FAUX"

Citation:

---

Envoyé par Marc-L

via la fenêtre Variables locales

---

Merci Marc pour cette indication je ne connaissais pas cette fenêtre