Bonjour à tous,

Je bute actuellement sur un point qui sera sans doute simple pour la plupart d'entre-vous !

Comme vous pouvez le voir ci-dessous, ces données importées dans Excel 2003 depuis un outil d'analyse de compteurs (OWL), comportent des virgules à la fin de chaque valeur (sauf date & heure).

J'ai testé la macro ci-dessous :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub SupprCaractD()
''Macros par Claude Dubois pour "rimbaut" E-P le 21 Oct 09
Dim Nc, Cel As Range
    For Each Cel In Range(("e2:e24581"), ("f2:f24581"))
        Cel.Value = Trim(Cel.Value) 'supprime espaces
        Nc = Len(Cel)               'compte les caractères
        Cel.Value = Left(Cel, Nc - 1)
    Next Cel
    MsgBox "Terminé !"
End Sub
Celle-ci ne fonctionne que sur les colonnes 3 et 4. Etant donné, que le fichier comporte plus de 25 000 lignes, quelqu'un pourrait-il m'aider à modifier cette macro de telle
sorte que la plage entière soit prise en compte (E2:J25481) ?

En vous remerciant et en vous souhaitant un excellent week-end.

Cordialement,


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Date		Heure       GHG_	Tariff	Amps        kW_Raw   	                Cost_Raw	                GHG_Raw
19/11/2013	10:21	0,84	2,5,	                226,8,	                56700,0,	                19051,2,
19/11/2013	10:22	0,84	2,5,	0,212333,	84,933333,	21233,33325,	7134,399972,
19/11/2013	10:23	0,84	2,5,	0,252,	100,8,	                25200,0,	                8467,2,
19/11/2013	10:24	0,84	2,5,	0,701167,	280,466667,	70116,66675,	23559,200028,
19/11/2013	10:25	0,84	2,5,	0,236833,	94,733333,	23683,33325,	7957,599972,
19/11/2013	10:26	0,84	2,5,	0,236833,	94,733333,	23683,33325,	7957,599972,
19/11/2013	10:27	0,84	2,5,	0,130667,	52,266667,	13066,66675,	4390,400028,
19/11/2013	10:28	0,84	2,5,	0,401333,	160,533333,	40133,33325,	13484,799972,
19/11/2013	10:29	0,84	2,5,	0,130667,	52,266667,	13066,66675,	4390,400028,