Discussion :

[nyto35]

Bonjour à tous,

Je souhaite connaître votre avis sur un petit problème que je rencontre.

Je dispose dans une cellule d'une date du type (01012001), donc le 1er janvier 2001.

Existe t-il une fonction sous VBA qui renvoie directement la date associée sous le format jj/mm/aaaa ?

Cordialement

[keygen08]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub transformation()
 
a = Sheets("liste").Range("h7")
jour = Left(a, 2)
mois = Mid(a, 3, 2)
annee = Right(a, 4)
Sheets("liste").Range("h8") = Format((jour & "/" & mois & "/" & annee), "dd mmmm yyyy")
 
End Sub

Doit y avoir plus simple, fin de journée difficile.

[issoram]

Bonjour,

De la lecture ici

Sinon tout dépend de ce que tu veux en retour, une date, une chaine de caractères formatée.... A priori c'est juste du formatage donc:

Code :

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

1
2
3
Dim strDate as String, strDate2 as String
strDate = "01022012"
strDate2 = Left(strDate, 2) & "/" & Mid(strDate, 3, 2) & "/" & Right(strDate, 4)

[nyto35]

Merci, sa marche très bien