Discussion :

[bricko]

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

[Fvandermeulen]

Salut,

Si j'ai bien compris ton besoin, il te suffit d'écrire le résultat dans une autre colonne au lieu de la colonne qui contient l'originale.
Avec Offset, c'est facile, remplace

Code :

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

 ActiveCell = (month & "/" & day & "/" & year)

par

Code :

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

ActiveCell.offset(0,1) = (month & "/" & day & "/" & year)

Tu auras le résultat dans la colonne E

A+

[bricko]

Merci pour votre réponse.
mais si je voulais avoir la réponse dans une autre colonne autre que E, comment faire sans avoir à compter toutes les colonnes qui le séparent de D.

Merci pour votre réponse.

je dis une autre colonne ça peut-être AC ou tiens plus loin CC.
En fait j'ai un classeur contenant plusieurs colonnes, la colonne E étant déjà occupée par d'autres données,je n'aimerais pas les effacer.

Merci pour votre aide

[eriiic]

Bonjour,

tu peux te faire une fonction personnalisée :

Code :

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

1
2
3
Function dateNum(dat1 As String) As Date
    dateNum = CDate(Right(dat1, 2) & "/" & Mid(dat1, 5, 2) & "/" & Left(dat1, 4))
End Function

à mettre dans un module standard

Ensuite, dans n'importe quelle cellule : =dateNum(A2)


eric

[bricko]

Merci Eric ça l'air de fonctionner nickel

[Fvandermeulen]

Re,

Pour une autre colonne que E, tu peux trouver la dernière colonne utilisée sur base de la première ligne du tableau (2 j'imagine si tu commence de D2)

On récupère le numéro de la dernière colonne utilisée

Code :

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

DerCol=Sheets("Feuil1").cells(2,rows(2).cells.count).end(xltoleft).column

Si tu veux écrire à droite de la dernière c'est +1 mais comme on commence en D2 il faut soustraire 4 car on est déjà en 4ème colonne, donc:

Code :

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

ActiveCell.offset(0,Dercol-4+1) = (month & "/" & day & "/" & year)