Discussion :

[Conundrum]

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


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 :

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

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.

[unparia]

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.

[Jean-Philippe André]

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

[Menhir]

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

Code :

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

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 :

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

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))

[Conundrum]

Merci à vous !

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