Valider une date dans une cellule

Bonjour à tous,

Je ne sais pas si le titre est tres clair, mais je vais essayer de mieux vous expliquer mon problème.

Je dois automatiser une procédure sur un fichier excel, je maitrise un peu le VBA cependant je bloque sur un détail depuis quelques jours:

  • Tout d'abord je récupère une date sous le format suivant : 20130531
  • Je découpe alors ac les formule excel usuelles que je place dans des variables: d , m , y
  • Que je réassemble et insère dans plusieurs cellules spécifique grâce à l'instruction suivante :
ThisWorkbook.Sheets("Courbes").Range("P1").value = d & "/" & m & "/" & y
  • Cependant ma valeur se positionne à gauche de ma cellule et n'est pas prise en compte par les cellules qui depende de celle ci.
  • Cela fonctionne seulement si je selectionne la cellule et que j'appuie sur entrée. et alors la date se positionne a droite et est prise en compte.

J'ai essayer formula , numbertformat ..

Rien n'y fait.

Pouvez vous m'aider svp?

Bonjour,

essai en incluant la fonction CDate()

comme ceci:

ThisWorkbook.Sheets("Courbes").Range("P1").Value = CDate(d & "/" & m & "/" & y)

MERCI BEAUCOUP!!

Reponse ultra rapide et qui fonctionne!! Bonne journée rvtoulon!

Rechercher des sujets similaires à "valider date"