Suppression des retours ligne = Pb de date

[Byfranck]

Bonjour à tous,

Je viens vers vous car cette fois j'y perds mon latin!

Dans ma base de données j'utilise du Vba, pour éviter les plantage j'ai bricloé un code pour supprimer les retours chariots.

Et là je me rend compte qu'à chaque passage de dans la macro les jours et les dates sont inversées.

une solution c'est de lancer 2 fois la macro ... mais il y a certainement plus propre surtout qu'avec une base de 255 colonnes et plusieurs milliers de ligne ça met du temps!!

Si quelqu'un pouvait m'aider!

Pour lancer le code: Macro et lancer Cleaning

Merci d'avance

 

[job75]

Re : Suppression des retours ligne = Pb de date

Bonjour Byfranck,

Utilisez ce code :

b = Sheets("feuil1").Cells(i, c)[COLOR="Red"].Value2[/COLOR]

Voyez l'aide VBA pour Value2.

A+

 

[Byfranck]

Re : Suppression des retours ligne = Pb de date

Bonjour Job75,

Je regarde l'aide Vba et j'essai cette modif dans mon code!

merci beaucoup
Franck

 

[Byfranck]

Re : Suppression des retours ligne = Pb de date

Rebonjour Job75,

ça marche nickel pour les date type 15/10/2010
mais pas terrible pour les formats : 11/01/2010 17:40:00
je me retrouve avec ça: 401897361111111

et je suis bien enbêté car le viens de me rendre comte que je n'ai pas l'aide Vba sur mon portable .. et que le CD d'install d'Office est au bureau.

Si tu as une autre astuce!

Franck

 

[tototiti2008]

Re : Suppression des retours ligne = Pb de date

Re,

Job, bien vu le Value2, je n'y aurais pas pensé 😉

un test à partir de ta solution :

b = Sheets("feuil1").Cells(i, c).Value2
If InStr(1, b, Chr(10)) > 0 Then b = Replace(b, Chr(10), "")
If InStr(1, b, Chr(13)) > 0 Then b = Replace(b, Chr(13), "")

 

[job75]

Re : Suppression des retours ligne = Pb de date

Re,

Il y a la solution de tototiti mais aussi :

b = Sheets("feuil1").Cells(i, c).Value2
b = Replace(b, ",", ".")

Edit : mais dans tous les texte les virgules seront remplacées par des points...

On peut fignoler avec :

b = Sheets("feuil1").Cells(i, c).Value2
If IsNumeric(b) Then b = Replace(b, ",", ".")

A+

 

[job75]

Re : Suppression des retours ligne = Pb de date

Re,

Pour que la méthode de tototiti fonctionne avec des heures/minutes, il faut déclarer b As Variant.

Dans ce cas .Value2 n'est plus nécessaire :

Dim b As Variant, i As Long  ', c As Integer
'--------------
b = Sheets("feuil1").Cells(i, c)
If InStr(b, Chr(10)) Then b = Replace(b, Chr(10), "")
If InStr(b, Chr(13)) Then b = Replace(b, Chr(13), "")

A+