Bonjour à la comunauté,
Je suis confronté à un petit souci.
J'ai une colonne de date. Mais cette dernière est sous forme de nombre.
Par exemple j'ai 20120102 qui est en réalité 02/01/2012.
Pour l'instant j'ai réussi à construire une macro qui fasse le changement en date. la macro est la suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub changer_en_date()
    Dim year As String
    Dim day As String
    Dim month As String
 
    'Macro pour changer les colonnes "Movement Day": N2 et AM2 . A Optimiser pour que l'utilisateur n'est pas à bidouller dans la macro
 
    Worksheets("Feuil1").Range("D2").Activate
 
    While (ActiveCell <> "")
        year = Left(ActiveCell, 4) 'ici je récupère l'année
        month = Left(Right(ActiveCell, 4), 2) 'ici je récupère le mois
        day = Right(Right(ActiveCell, 4), 2) 'ici je récupère le jour
 
        ActiveCell = (month & "/" & day & "/" & year)
        ActiveCell.Offset(1, 0).Activate
    Wend
End Sub
La difficulté est de mettre la correspondance en date dans une autre colonne.
Comme ça je pourrais garder les deux écritures de dates.

Merci de m'aider