XL 2013 convertir date avec VBA

[reda1974]

Bonjour à tous,


voila a chaque fois que je télécharge mes données j'ai la colonne de date et de prime qui s'affiche avec des erreurs et je veux savoir comment convertir la date en 20xx automatiquement ainsi que la colonne de la prime en nombre.

merci par avance

 

[Roland_M]

Re : convertir date avec VBA

bonjour

un petit exemple de ce que tu as et de ce que tu souhaites serait bienvenu !

 

[reda1974]

Re : convertir date avec VBA

bonjour Roland

pour le moment je n'arrive pas a joindre le fichier et pourtant il n'est pas volumineux juste 16 Ko dés que sa sera possible je le ferai

 

[reda1974]

Re : convertir date avec VBA

bonjour,

j'ai pu trouver ce code qui marche bien mais il est limité jusqu’à la ligne 65536 et de deux dans mon fichier j'ai trois colonne de date la colonne E, F et G

Sub Convertir()
Dim d&, tablo, i&
d = [e65536].End(xlUp).Row
tablo = Application.Transpose(Range("e1:e" & d))
On Error Resume Next 'si toutes les valeurs ne sont pas des dates
For i = 2 To d
tablo(i) = CDbl(CDate(tablo(i)))
Next
With [e1].Resize(d)
.NumberFormat = "dd/mm/yyyy" 'ou autre format Date
.Value = Application.Transpose(tablo)
End With
End Sub