Conversion de format de date

[NicoLaRochelle]

Bonjour à tous,

J'ai un petit souci de conversion de format pour obtenir à partir d'un import de données d'une BDD, des belles dates bien exploitables.

Comme brutes, elles sont entourées d'espaces, je supprime ces espaces.
Ensuite, je convertis au format (dd/mm/yyyy) ces données qui sont à la base en standart et de la forme (dd/mm/yy)
Et là... patatra. Ca marche pas.

J'ai essayé de multiplier par 1 après conversion et là ça bug...

Bref, SMS ! (Save My Soul...)

Comme un petit fichier vaut mieux qu'un long discours, je remercie d'avance tous ceux qui y jetteront un oeil

 

[PascalXLD]

Re : Conversion de format de date

Bonjour

je ne vois rien dans ton zip

 

[NicoLaRochelle]

Re : Conversion de format de date

Euuuuuuh...

Et là ?

 

[PascalXLD]

Re : Conversion de format de date

Re

Pour certaines dates tu as des espaces qui doivent géner

un petit coup de suprrespace devrait faire du bien

 

[PascalXLD]

Re : Conversion de format de date

Re

Oups je n'avais pas vu que tu avais le trim

bon essaies ainsi

Sub FORMATDATE()


Dim l As Integer
Dim cel As Range

derlin = Sheets("STOCKS").Range("C65536").End(xlUp).Row

For Each cel In Range("c2:c" & derlin & "")

'suppression des espaces inutiles
cel = Trim(cel)

'modification du format de cellule uniquement pour les cellules
'contenant des dates car normalement, il y du texte dans les cellules
'vides qu'il y a autour

If Mid(cel, 3, 1) = "/" Then
cel = CDate(cel)
End If

Next

End Sub

 

[NicoLaRochelle]

Re : Conversion de format de date

Ben oui, justement, c'est pour ça que si tu fais tourner ma macro (FormatDate), la fonction "Trim ()" supprime les espaces inutiles avant de convertir en date.

Là je propose des données brutes avant "retouche" par la macro pour cibler le problème à la source.

Seules les cellules C36 à c40 ont été modifiées par la macro pour montrer le résultat de la dite macro...

 

[NicoLaRochelle]

Re : Conversion de format de date

Oups, réponse en même temps...

;-)

Ben écoute, je suis scié, ça marche...
Je viens de découvrir une nouvelle fonction, merci !