Discussion :

[deca2]

Bonjour
Dans un fichier j'ai plusieurs colonnes avec des montants.
Ces montants sont en décimales, mais la séparation (entre unite et décimale) est un point alors que je voudrais une virgule (Surtout pour une question de reconnaissance dans divers programmes.)
Comment écrire ce code ?
Je sais que dans excel la fonction "recherche remplace" . par , fonctionne bien.
Comment retranscrire tout ça en VBA ?

Merci

[zyhack]

Bonsoir

est-ce que le fait de modifier le paramètre Séparateur de décimal dans Outils - Options - International ne suffirait pas ?

[fring]

Bonjour,

Regarde ICI

[Hagendorf]

Bonsoir,

Je ne comprend pas pourquoi tu veux passer par VBa mais tu peux essyer qque chose comme ceci pour une plage donnée.

Code :

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

1
2
 
Range("A1:IV100").Replace What:=".", Replacement:=",", LookAt:=xlPart

tu n'as plus qu' à adapter range à la plage de données souhaitée.

[deca2]

Bon résultat mitigé.
Effectivement, mes montants se retrouvent avec une virgule, mais ils se comportent comme du texte.
Alors j'ai rajouté ça :

Code :

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

Columns("e:o").NumberFormat = "#,#0"

Mais le résultat n'est que peu satisfaisant, seul quelques nombres se mettent au bon format (j'ai pas étudié lesquels)
Une idée ?

[deca2]

Bon, les nombres qui se mettent au bon format sont ceux sans décimales(on s'en serait douté).
Dans ma macro j'ai essayé de multiplié par 1 toutes les cellules en question en espérant que ça les formate correctement. Mais non.
Alors que la même opération directement dans excel (copier, collage special, multiplication) à comme résultat de me convertir toutes ces cellules en nombre.

Je ne comprends pas.

[fred65200]

bonjour,
essaie

Code :

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

Columns("e:o").NumberFormat = "#.#0"

tiens nous au courant

[deca2]

non,exactement idem.
C'est fou ça.

[fred65200]

re
essaie de placer ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'début du code
sepDec = Application.DecimalSeparator
sysSep = Application.UseSystemSeparators
Application.DecimalSeparator = ","
Application.UseSystemSeparators = False
 
 
' ton code
 
 
'fin du code
Application.DecimalSeparator = sepDec
Application.UseSystemSeparators = sysSep
Application.UseSystemSeparators = True

@+

[deca2]

Toujours idem...
Merci d'essayer en tout cas.

Pour info, une fois ma macro passée, si je me positionne dans excel dans uen cellule numbre mal formatée que je met mon curseur dans la barre de formule (ou figure le nombre) et que je fais entrer (sans rien modifié), Omagie, ma cellule se transforme et mon nombre est au bon format.
Doit pas manquer grand chose.
Au pire , j'essairais d'insérer autant de colonnes que souhaité, y mettre une formule de multiplication par 1 dans le format : formula...
Ca pourrait marcher.
Peut être
mais ce sera long et fastidieux car faudra que j'arrête la formule en bas du tableau...
Peut être y verrais je plus clair cet aprem.