problème avec la methode "Replace"

Version imprimable

Bonjour,

Je suis tout nouveau sur le forum et dans le monde du VBA, donc merci pour ce super forum et les conseils qui y sont prodigués.

**Mon objectif :
je suis en train de crée une macro dans le but de mettre en forme une série de données qui sont au départ sous forme CSV (séparateur point-virgule) du genre :

Code:

04/07/2007 12:24:38.118,0.006,-7.081004E+00,"04/07/2007 12:24:38.165",0.053,+2.207900E+01,"04/07/2007 12:24:38.213",0.101,-1.943282E+00,04/07/2007 12:24:38.260",0.148,+7.424000E+00,"04/07/2007 12:24:38.308",0.196,-6.390870E+00

une belle ligne de données bien indigeste !
Et je compte transformer ces données dans le but d'obtenir un tableau avec ces données en format plus lisible et séparées dans différentes colones.

pour cela j'ai rédigé le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _ ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _ (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _ Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _ 33, 1)) Range( _ "D:D,E:E,G:G,H:H,J:J,K:K,M:M,N:N,P:P,Q:Q,S:S,T:T,V:V,W:W,Y:Y,Z:Z,AB:AB,AC:AC,AE:AE,AF:AF" _ ).Select ' Range("AF1").Activate Selection.Delete Shift:=xlToLeft Range("B:M").Select Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False Selection.Replace What:=".", Replacement:="," Selection.NumberFormat = "General"
**plusieurs actions sucessives :

* sélection de la première colone et grâce à la fonction "convertir" passage des différents données en plusieurs colones (ça marche très bien)
* suppression de quelques colones pour supprimer des informations redondante (ça marche très bien)

* mes chiffres étant écrit à avec des "." et non des "," je me dit grâce a la fonction replace je vais transformer mes points en virgules. ET LA CA MARCHE PLUS :evilred: :evilred: . les points sont effectivement remplacé par des virgules mais tout mes nombres sont multiplier par 10^6 ! par example : 7.371000E+00 est transformé en 7,37E+06, et je vois vraiment pas pourquoi !

* le but ensuite est de transformer le format de nombre de scientifique à générale.

Voilà si quelquu'un peu m'aider sur ce coup là, je l'en remercirais grandement !

Merci

06/07/2007, 12h57
bibi5883

Bonjour,
je n'ai pas trop regarder ton code, mais est-ce que tu dois garder le format CSV? Si non, tu peux faire une macro dans un fichier Excel qui importe tes données, comme ça tu aura toutes tes données dans des colonnes bien séparées et tu n'aura plus qu'à faire un programme qui mette en forme ton tableau.

;)
06/07/2007, 13h57
jfontaine
a tester
1. Remplacer les , en ;
2. Remplacer les . en ,
3. Utiliser ton code de conversion en modifiant le séparateur , en ;
06/07/2007, 14h09
Tomme

merci bibi5883 pour ta réponse, mais je n'ais pas besoin de garder le CSV.
J'ai commencé une macro pour traiter mes données et c'est là que je suis bloqué! à cause de la fonction "remplacer"
06/07/2007, 14h14
Tomme

merci Jerome,

je vois pas trop ce que tu me propose de tester.

actuellement je veux remplacer les . par des ,
si je fait le contraire il va rien se passer non ?
06/07/2007, 14h20
zazaraignée
Je lirait plutôt le fichier csv une ligne à la fois et je séparerais chaque ligne avec la fonction Split.

Lecture de fichier : Instruction Open (voir l'aide)
Fonction Split :
Code:

1 2 Dim unTableau() As Variant unTableau = Split(uneLigneDuFichier, ",")

Bonjour Tomme,

J'ai testé votre code avec la ligne du fichier d'origine que vous avez fournie et chez moi (Excel 2000) cela semble bien fonctionner.

Si vous cliquez après traitement sur une cellule contenant un nombre et que vous vérifiez le format, avez-vous bien le format standard ?
(il arrive qu'Excel conserve un format personnalisé).

Avez-vous essayez de formater les cellules avant d'affecter les valeurs ?
Code:

1 2 3 4 5 6 7 Range("B:M").Select Selection.NumberFormat = "General" Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False Selection.Replace What:=".", Replacement:="," Selection.NumberFormat = "General"
D'autre part vous indiquez qu'il s'agit d'un fichier .csv avec séparateur le ";" or sur la ligne que vous joignez le séparateur semble bien être ","

06/07/2007, 14h23
Tomme

Jerome,
j'ai finalement compris ce que tu voulais tester (c'etait une bonne idée), je l'ai fait mais mal heureusement j'ai un autre message d'erreur qui appararais :(

Citation:

Erreur d'éxécution "1004"
Formule trop longue

du coup le je suis un peu perdu :?

jacques_jean,

je vous donne d'abord quelques lignes du code de départ (pour test)

Code:

1
2
3
4
5
6
7
101(Time stamp),101(Seconds),101(Wm2),102(Time stamp),102(Seconds),102(C),103(Time stamp),103(Seconds),103(Wm2),104(Time stamp),104(Seconds),104(C),105(Time stamp),105(Seconds),105(Wm2),106(Time stamp),106(Seconds),106(C),107(Time stamp),107(Seconds),107(Wm2),108(Time stamp),108(Seconds),108(C),900(Time stamp),900(Seconds),900(Value),901(Time stamp),901(Seconds),901(Value),902(Time stamp),902(Seconds),902(Value)
05/07/2007 07:30:42.438,0.006,-5.814260E+00,"05/07/2007 07:30:42.485",0.053,+2.161900E+01,"05/07/2007 07:30:42.533",0.101,-3.777047E+00,"05/07/2007 07:30:42.580",0.148,+4.993000E+00,"05/07/2007 07:30:42.628",0.196,-5.642080E+00,"05/07/2007 07:30:42.674",0.242,+2.172100E+01,"05/07/2007 07:30:42.722",0.290,-4.273140E+00,"05/07/2007 07:30:42.769",0.337,+2.172500E+01,"05/07/2007 07:30:42.628",0.196,+2.726108E+01,"05/07/2007 07:30:42.533",0.101,-9.091307E+00,"05/07/2007 07:30:42.628",0.196,-2.998588E+00
05/07/2007 07:31:42.434,60.002,-5.795623E+00,"05/07/2007 07:31:42.481",60.049,+2.160100E+01,"05/07/2007 07:31:42.529",60.097,-3.996832E-01,"05/07/2007 07:31:42.576",60.144,+4.995000E+00,"05/07/2007 07:31:42.623",60.191,-5.562600E+00,"05/07/2007 07:31:42.670",60.238,+2.171600E+01,"05/07/2007 07:31:42.718",60.286,-3.944760E+00,"05/07/2007 07:31:42.765",60.333,+2.172200E+01,"05/07/2007 07:31:42.623",60.191,+2.716360E+01,"05/07/2007 07:31:42.529",60.097,-5.695307E+00,"05/07/2007 07:31:42.623",60.191,-4.769471E+00
05/07/2007 07:32:42.434,120.002,-5.627536E+00,"05/07/2007 07:32:42.481",120.049,+2.160100E+01,"05/07/2007 07:32:42.529",120.097,+1.348584E+01,"05/07/2007 07:32:42.576",120.144,+5.233000E+00,"05/07/2007 07:32:42.623",120.191,-5.569920E+00,"05/07/2007 07:32:42.671",120.239,+2.172600E+01,"05/07/2007 07:32:42.719",120.287,-4.059780E+00,"05/07/2007 07:32:42.765",120.333,+2.173500E+01,"05/07/2007 07:32:42.623",120.191,+2.717092E+01,"05/07/2007 07:32:42.529",120.097,+8.358308E+00,"05/07/2007 07:32:42.623",120.191,+3.250768E+00
05/07/2007 07:33:42.434,180.002,-5.285275E+00,"05/07/2007 07:33:42.481",180.049,+2.160100E+01,"05/07/2007 07:33:42.529",180.097,+1.785957E+01,"05/07/2007 07:33:42.576",180.144,+5.398000E+00,"05/07/2007 07:33:42.624",180.192,-5.701690E+00,"05/07/2007 07:33:42.671",180.239,+2.172900E+01,"05/07/2007 07:33:42.718",180.286,-4.473920E+00,"05/07/2007 07:33:42.765",180.333,+2.171900E+01,"05/07/2007 07:33:42.624",180.192,+2.730269E+01,"05/07/2007 07:33:42.529",180.097,+1.307429E+01,"05/07/2007 07:33:42.624",180.192,+2.088273E+00
05/07/2007 07:34:42.434,240.002,-5.582282E+00,"05/07/2007 07:34:42.481",240.049,+2.161400E+01,"05/07/2007 07:34:42.529",240.097,+2.418418E+01,"05/07/2007 07:34:42.576",240.144,+5.667000E+00,"05/07/2007 07:34:42.623",240.191,-5.632670E+00,"05/07/2007 07:34:42.671",240.239,+2.173900E+01,"05/07/2007 07:34:42.719",240.287,-4.434180E+00,"05/07/2007 07:34:42.766",240.334,+2.174600E+01,"05/07/2007 07:34:42.623",240.191,+2.724667E+01,"05/07/2007 07:34:42.529",240.097,+1.910190E+01,"05/07/2007 07:34:42.623",240.191,+1.426386E+00
05/07/2007 07:35:42.434,300.002,-5.225569E+00,"05/07/2007 07:35:42.481",300.049,+2.161700E+01,"05/07/2007 07:35:42.529",300.097,+3.288598E+01,"05/07/2007 07:35:42.576",300.144,+5.958000E+00,"05/07/2007 07:35:42.624",300.192,-5.598160E+00,"05/07/2007 07:35:42.671",300.239,+2.169500E+01,"05/07/2007 07:35:42.718",300.286,-4.396540E+00,"05/07/2007 07:35:42.765",300.333,+2.172700E+01,"05/07/2007 07:35:42.624",300.192,+2.721516E+01,"05/07/2007 07:35:42.529",300.097,+2.816041E+01,"05/07/2007 07:35:42.624",300.192,+9.664333E-01

(assez barbar j'en conviens)

Si j'écris la commande Selection.NumberFormat = "General" avant la Selection.Remplace ; effectivement en fin de marco, le format est resté en scientique. Et j'ai tout mes 10^6 qui viennent se rajouter !!

vous avez raison dans le fichier csv le séparateur est "," d'ou le :

Code:

1
2
3
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False Comma:=True,

Bonjour Tomme,

Je viens à nouveau de tester votre code et à partir des nouvelles lignes que vous avez jointes.

Pas de problème, cela fonctionne chez moi et je ne parviens pas à reproduire ce que vous constatez.

Vous avez écrit :

Citation:

Si j'écris la commande Selection.NumberFormat = "General" avant la Selection.Remplace ; effectivement en fin de marco, le format est resté en scientique. Et j'ai tout mes 10^6 qui viennent se rajouter !!

une piste : regardez dans les formats personnalisés et éventuellement supprimez celui qui concernerait le type de format qui s'affiche.

D'autre part en exécutant votre code en pas-à-pas je m'apercois que le format des cellules avant d'exécuter :

Code:

Selection.NumberFormat = "General"

est déjà "Standard".

si vous ajoutez dans ce code :
Code:

1 2 3 4 5 6 Range("B:M").Select Selection.NumberFormat = "0.00E+00" Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False Selection.Replace What:=".", Replacement:="," Selection.NumberFormat = "General"
Est-ce que cela change quelque chose.

Bonjour tomme,

je passe par ici et viens proposer une solution.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ConversionCSVtoXLS()
    Dim k As Integer, i As Integer
    Dim Infochamp As Variant
 
    Range("A:A").NumberFormat = "d/m/yy h:mm"
    Range("B:AG").NumberFormat = "0.00"
    For i = 1 To 7 'A remplacer par la dernière ligne du tableau
        Infochamp = Split(Cells(i, 1), ",")
        For k = 0 To UBound(Infochamp)
            Cells(i, k + 1) = Infochamp(k)
        Next
    Next
    Range("D:E,G:H,J:K,M:N,P:Q,S:T,V:W,Y:Z,AB:AC,AE:AF").Delete Shift:=xlToLeft
    Range(Columns(1), Columns(k + 1)).EntireColumn.AutoFit
End Sub

Il faudra remplacer les valeurs nécéssaire pour l'adapter au programme.

sinon je suis la pour les questions.

09/07/2007, 15h49
Tomme

Problème résolu

Merci à tous pour vos réponses !

jacques_jean : je n'ai pas réussit à appliquer ce que tu m'a proposé.

et mordrhim UN TRES GRAND MERCI, ce que tu as écrit marche a merveille !! :king:

Merci et à bientôt