Bonjour Hibou et le forum,
Je te propose la macro suivante pour convertir les données des trois premières colonnes en date sur la quatrième.
Sub RasDate()
Dim Lig As Long, i As Long
Lig = Sheets('Feuil1').Range('A65536').End(xlUp).Row
With Sheets('Feuil1')
For i = 2 To Lig
.Cells(i, 4) = CDate(.Cells(i, 1) & '/' & .Cells(i, 2) & '/' & .Cells(i, 3))
.Cells(i, 4).NumberFormat = 'dd/mm/yy'
Next i
End With
End Sub
Cordialement
CBernardT
Message édité par: CBernardT, à: 18/03/2005 13:42