Discussion :

[Morpheus3556]

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,

[Daniel.C]

Bonjour,

Remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cel In Range(("e2:e24581"), ("f2:f24581"))

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cel In Range("E2:J24581")

[Morpheus3556]

Bonjour,

Remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cel In Range(("e2:e24581"), ("f2:f24581"))

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cel In Range("E2:J24581")

Merci beaucoup Daniel.
Je vais tester ta solution dès vendredi matin au bureau et te tiens informé.

Excellente Soirée,

Cdt

Xavier

[Morpheus3556]

Bonjour,

Remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cel In Range(("e2:e24581"), ("f2:f24581"))

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cel In Range("E2:J24581")

Bonjour Daniel,

Comme convenu le retour après application de ta solution. Cela fonctionne mais je suis confronté à un autre problème.

Le format de certaines cellules n'est pas celui que j'espérais c'est à dire que j'ai par exemple 7 134 399 972 alors que je devrais avoir 7134,399972.

Cette macro ne conserve malheureusement pas la 1ère virgule et de plus insère un séparateur de milliers. Je suppose que les lignes suivantes du code (cf ci-dessous) ne sont pas adaptées mais je ne vois pas comment les modifier.

Je continue donc à chercher et merci encore pour ton aide.

Bonne journée

Xavier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Cel.Value = Trim(Cel.Value) 'supprime espaces
        Nc = Len(Cel)               'compte les caractères
        Cel.Value = Left(Cel, Nc - 1)

[casefayere]

Bonjour,

25000 lignes !!!, passes par un tableau virtuel, testes ce code que je n'ai pas le temps de vérifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub SupprCaractD()
Dim Nc, x As Long, y As Long, Tbl
Tbl = Range("e2:j24581")
For x = 1 To UBound(Tbl, 1)
  For y = 1 To UBound(Tbl, 2)
    Nc = Len(Tbl(x, y))
    Tbl(x, y) = Val(Replace(Left(Tbl(x, y), Nc - 1), ",", "."))
  Next y
Next x
Range("E2").Resize(UBound(Tbl, 1), UBound(Tbl, 2)) = Tbl
MsgBox "Terminé !"
End Sub

[Morpheus3556]

Bonjour,

25000 lignes !!!, passes par un tableau virtuel, testes ce code que je n'ai pas le temps de vérifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub SupprCaractD()
Dim Nc, x As Long, y As Long, Tbl
Tbl = Range("e2:j24581")
For x = 1 To UBound(Tbl, 1)
  For y = 1 To UBound(Tbl, 2)
    Nc = Len(Tbl(x, y))
    Tbl(x, y) = Val(Replace(Left(Tbl(x, y), Nc - 1), ",", "."))
  Next y
Next x
Range("E2").Resize(UBound(Tbl, 1), UBound(Tbl, 2)) = Tbl
MsgBox "Terminé !"
End Sub

Bonjour Dom,

Désolé pour la réponse tardive mais j'ai pu tester ton code. Cela fonctionne sans problème.

Il me reste à voir le format de certains champs qui sont en format 'Texte'. Il faut que je les transforme en format 'Nombre' avant de relancer la macro.

Merci à toi ainsi qu'à Daniel pour votre aide précieuse et on peut donc considérer mon problème comme résolu.

Au plaisir de vous retrouver sur ce forum !

Bon WE et bonne continuation

Xavier