Discussion :

[pablot]

Bonjour à tous,

Je viens au désespoir pour un problème qui peut paraître très simple.
J'ai un bout de tableau dans lequel j'ai collé des données importées d'un autre fichier excel.
Ces données (numériques) apparaissent avec des virgules or je voudrais qu'elles soient passées en point, pour être compilées et exportées ensuite dans un fichier texte puis traité dans un autre programme.

C'est sur le remplacement des , par des . que je bloque. J'ai essayé diverses solutions, d'abord avec une boucle sur chaque cellule avec la fonction replace. Fonctionne mais bonjour le temps de calcul ... (j'ai 15000 lignes à traiter). Puis par un enregistrement de macro, j'ai récupéré le code qui me permet de faire un CTRL + F, remplacer , par . . Lorsque je le fais à la main, pas de soucis ça fonctionne très bien (quand j'enregistre la macro donc et que je récupère le code). Mais lorsque je lance ensuite la macro pour l'avoir en automatique, niet il ne se passe rien.

J'ai également fait une conversion de la plage qui m'interesse au format texte avant.

Merci pour votre aide car je suis persuadé que l'erreur est plus que bête ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'-----------------------------------------------------------------------------------------------------
'REMPLACEMENT , par . --------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------
 
Windows("Trame_initiale.xlsx").Activate
 
'= CTRL+F
'----------------------------------------------
Range("B75:I75").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "@"
 
Range("A1:I15928").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'----------------------------------------------

[Menhir]

J'ai essayé diverses solutions, d'abord avec une boucle sur chaque cellule avec la fonction replace. Fonctionne mais bonjour le temps de calcul ... (j'ai 15000 lignes à traiter).

Dans ce code que tu donne ci-dessous, je remarque que tu utilises abondamment les Select/Selection. Ca explique sans doute la lenteur de ton code.
Je pense que si tu les retirais (plus une ou deux autres astuce), tu pourrais certainement obtenir un code avec un délai d'exécution raisonnable.
Montre le code que tu avais fais avec Replace et je te montrerai comment le modifier.

[patricktoulon]

Bonjour

Code :

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

1
2
3
4
5
Range(cells(75,2),cells(rows.count,"I").end(xlup)).NumberFormat = "@"
 
Range("A1:I15928").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

[pablot]

Et bien tout simplement :

Code :

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

1
2
3
4
5
6
7
8
9
Windows("Trame_initiale.xlsx").Activate
 
'=REPLACE UN PAR UN
 
For i = 75 To 15928
    For j = 2 To 9
        Cells(i, j) = Replace(Cells(i, j), ",", ".")
    Next j
Next i

Je n'utilise pas de select ou autre ici ... mais le calcul est interminable ...

Bonjour

Code :

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

1
2
3
4
5
Range(cells(75,2),cells(rows.count,"I").end(xlup)).NumberFormat = "@"
 
Range("A1:I15928").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Bonjour,

Merci pour ce code "élagué", mais il ne se passe toujours rien

[Menhir]

Essaye ça :

Code :

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

1
2
3
4
5
6
7
8
Dim CY as Range
Workbooks("Trame_initiale.xlsx").Activate
 
Application.ScreenUpdating = False
For Each CY in Range("B75:I15928")
    CY.Value = Replace(CY.Value, ",", ".")
Next CY
Application.ScreenUpdating = True

[pablot]

Super ça marche parfaitement !
En revanche, je ne comprends toujours pas pourquoi le code d'avant ne fonctionnait pas ... c'est pourtant ce qui était enregistré lorsque je faisais la manip à la main ...
Merci !