Format date et formulaire VBA

Bonjour,

J'ai créé un formulaire en VBA dans Excel. J'y ai intégré une date à renseigner.
Le problème apparait à la validation de mon formulaire. Le format de cette date est bien pris en compte (jj/mm/aaaa), mais la cellule elle-même ne tient pas en compte cette information...
Ce qui me pose des problèmes dans la construction de mon TCD.

Exemple dans le tri. Alors que les autres dates que j'ai tapé à la main sont parfaitement prises en compte
Pièce jointe 469325

N'y a t'il donc pas un bout de code VBA à ajouter quelque part ? (Attention : mon niveau en VBA est très faible)
J'avais mis la 2nde ligne de ce code, mais visiblement ça ne suffit pas.

Code:

---

1 2	ActiveCell.Offset(0, 1) = Me.TextBox_date ActiveCell.Offset(0, 1).NumberFormat = "dd/mm/yyyy"

---

Merci pour l'aide que vous m'apporterez.

Bonjour

La valeur à affecter à la cellule de destination doit être de type date intéresse-toi aux fonctions de conversion, dont cdate) et non de type string (que retourne la fonction format)
C'est par contre la cellule de destination, qui doit, elle, être formatée (cellule --> format de cellule) en date si tu souhaites qu'y soit affichée une date.

Salut,

un sujet fréquent, ici ta date n'est pas considérée comme telle, mais comme du texte brut.

La valeur intrinsèque d'une date dans Excel est sensée être un numérique (en nombr de jour depuis une date fixe), aussi parmi les solutions que je peux te suggérer (par ordre décroissant de pertinence) :
- virer la textbox de date et passer par un calendrier
- manipulter la valeur de texte box pour en faire une date

Théoriquement, la bonne méthode devrait être :

Code:

---

1 2	ActiveCell.Offset(0, 1).NumberFormat = "dd/mm/yyyy" ActiveCell.Offset(0, 1) = DateValue(Me.TextBox_date)

---

En pratique, l'anglophonisme de VBA a de grande chance de transformer le 3 février en 2 mars et réciproquement.

Je conseillerais donc :

Code:

---

1 2	ActiveCell.Offset(0, 1).NumberFormat = "dd/mm/yyyy" ActiveCell.Offset(0, 1) = DateSerial(Split(Me.TextBox_date, "/")(2), Split(Me.TextBox_date, "/")(1), Split(Me.TextBox_date, "/")(0))

---

Merci à vous ! :)

J'ai donc opté pour la seconde proposition de Menhir, et ça fonctionne !