Changer_en_date Macro VBA

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:

---

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

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:

---

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

---

par

Code:

---

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

---

Tu auras le résultat dans la colonne E

A+

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

Bonjour,

tu peux te faire une fonction personnalisée :

Code:

---

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

Merci Eric ça l'air de fonctionner nickel

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:

---

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:

---

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

---