Convertir date

[reve24]

Bonjour
j ai dans ma colonne "B9:B1800" des dates en format texte ( issues d'un import

sous forme mardi 25 février 2014

Par le biais de la macro remplace j'obtiens bien 05/02/14
seulement je n arrive pas à obtenir le N°de semaine #VALEUR! mois 2 année 2014


il faut que je valide chacune des cellules de la colonne B une à une pour obtenir n° semaine
sinon j ai la formule

merci d avance

 

[vgendron]

Re : Convertir date

Bonjour,

Suis pas sur de comprendre..
avec ta macro tu convertis les dates de format texte à format date: OK
ensuite.. avec la fonction num.semaine(), tu devrais bien obtenir le numéro de la semaine.; en tout cas.. c'est ce que j'obtiens avec ton fichier exemple.. ??


Edit: je viens de me rendre compte que .. peut etre confonds tu le numéro de la semaine (entre 1 et 52) et le jour de la semaine (entre1 et 7) (=jour(B9)....
??


et donc. ta macro deviendrait:

Sub InformationDate()

Dim i As Long

For i = 9 To Range("B65536").End(xlUp).Row
Range("B" & i).Offset(, 3).Value = Day(Range("B" & i))
Range("B" & i).Offset(, 4).Value = Month(Range("B" & i))
Range("B" & i).Offset(, 5).Value = Year(Range("B" & i))
Next
End Sub

 

[reve24]

Re : Convertir date

Ok merci , ta formule est différente et débloque la situation
moi je travaillais avec mais apparemment il faut que le format soi en xx/xx/xx

Sub toto()
Dim i As Long
For i = 2 To Range("B65536").End(xlUp).Row
Range("B" & i).Offset(, 11).Value = Application.WeekNum(Range("B" & i))
Range("B" & i).Offset(, 12).Value = Month(Range("B" & i))
Range("B" & i).Offset(, 13).Value = YEAR(Range("B" & i))
Next
End Sub