Discussion :

[sims92.66]

Bonjour à tous,

J'aimerai transposer ma formule xl en vba.
J'ai essayer d'écrire le code ci-dessous mais j'ai quelques souci dans la syntaxe...
Merci de vos réponses.

Code :

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

1
2
Set date_naiss = Sheets("calcul").Range("C2:C" & derniere_ligne)
date_naiss = "=date(gauche(Source!x2;4);stxt(Source!x2;5;2);droite(Source!x2;2))"

[Invité]

Code :

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

date_naiss = CDate(Left(Range("Source!x2"), 4) & "/" & Mid(Range("Source!x2"), 5, 2) & "/" & Right(Range("Source!x2"), 2))