conversion date

[waspy59]

bonjour,

j'ai un fichier excel avec 60000 lignes et sur la colonne 'J', j'ai des valeurs en fonction de la colonne 'I'.

par exemple, si en 'I:12' j'ai 'Date', en 'J:12' j'ai une date sous la forme '050205' (pour le 5 fevrier 2005)

je veux faire une macro qui chaque fois qu'elle voit en 'I' le mot 'Date', convertisse en 'J' la valeur du champ en date ('O50205' en '05/02/2005')

je sais po le faire....

de plus g essayais manuellement, mais deja 60000 lignes a analyser... :sick:
de plus quand je le convertit ca merde '150905' donne '28/02/2313'

merci de votre aide

 

[porcinet82]

Salut waspy59,

Ca doit également être faisable par formule ou autrement, mais je te propose une p'tite macro qui devrait faire ce que tu souhaites.

Sub test()
Dim i As Long

For i = 1 To Range('I65536').End(xlUp).Row
    If Cells(i, 9).Value = 'Date' Then Cells(i, 10).Value = Left(Cells(i, 10).Value, 2) & '/' & Mid(Cells(i, 10).Value, 3, 2) & '/' & Right(Cells(i, 10).Value, 2)
Next i
End Sub

@+

 

[waspy59]

bonsoir,

merci pour ta reponse rapide et qui fonctionne lol

sauf que ca converti sous la forme de date 'jj/mm/aa' or je souhaiterai 'jj/mm/aaaa' et surtout les cellules converties ne sont pas reconnues comme des dates par excel :unsure: comment faire pour qu'elles le soient?

 

[porcinet82]

Salut waspy59,

Pour ta première question, j'ai modifié le code et ca te donne le format souhaité (JJ/MM/AAAA)

Sub test()
Dim i As Long

For i = 1 To Range('I65536').End(xlUp).Row
    If Cells(i, 9).Value = 'Date' Then Cells(i, 10).Value = Left(Cells(i, 10).Value, 2) & '/' & Mid(Cells(i, 10).Value, 3, 2) & '/20' & Right(Cells(i, 10).Value, 2)
Next i
End Sub

Pour que les cellules soient reconnu comme des dates, essaye d'appliqué une fois que la macro a été excecuté, un format personnalisé de ce genre JJ/MM/AAAA, chez moi ca a l'air de passer, mais je ne sais pas trop comment savoir si ce sont vraiment des dates ou non :sick:

Tiens moi au courant.

@+

 

[waspy59]

ca l'air ok, merci de ton aide