Discussion :

[Simon et ulrich]

Bonjour à tous !

Je fais face à un problème, et j'ai peur qu'il n'y ai pas de solution malgré tous les forum que j'ai pu lire...

Voila : dans une macro excel, je sélectionne toute une feuille, et fait un "chercher - remplacer" pour remplacer les points par des virgules :

Code :

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

1
2
3
4
Cells.Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

(et oui, merci le excel français pour avoir choisi les virgules au lieu des points dans les nombres)

Hélas, lorsque la macro a fini de s'exécuter, tous les chiffres sont considérés comme des chaines de caractères (petit onglet vert : "nombre stocké sous forme de texte").

Par contre, lorsque je fais cette opération à la main, pas de soucis, les nombre sont bien des nombres...

Je souhaite faire une macro absolument étant donné que c'est une chose que je vais faire pour une multitude de fichiers (avec d'autres rechercher - remplacer dans la meme macro...)

Alors voila, quelqu'un aurait-il une solution please ?

Merci beaucoup !

[wilfried_42]

Bonjour

Il n'est pas forcément utile de transformer les "." en "," ou inversement.
Il existe deux fonctions de transformation numérique
Val("125.26")
Cdbl("125,26")

ce qui donnerait :

Code :

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

selection.value = val(selection.value)

[L'Albatros]

Bonjour,

Ce bout de code vous va ? (cf bout de code ci-dessous)

Code :

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

1
2
3
4
5
6
7
Sub Remplace_Point_Par_Virgule_Sans_Changer_Format()
For Each cellule In Range("A1:A10")
    cellule.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    cellule.Value = CDbl(cellule.Value)
    cellule.NumberFormat = "0.00"
Next cellule
End Sub

'-----------------------------------------------------------------------
Si j'ai pu vous aider, merci de me le dire avec 1 pouce

[Simon et ulrich]

Merci à vous,

@ L'albatros : ton code fonctionne, mais seulement pour les petits nombres il me semble, j'ai essayé avec genre 12345.678910 et ça me donne 12345678910,00 comme résultat... (problème avec le format ou je sais pas...)

@ Wilfried : Merci, ça pourrait marcher. Cependant, dans le fichier sur lequel je travaille, certaines valeurs ont des virgules, d'autres des points (va savoir pourquoi !) et du coup la fonction "val" me coupe mes décimales pour mes chiffres avec virgule

Du coup j'ai trouvé une autre solution (certes lourde) :

Code :

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

1
2
3
 
For Each c in ActiveSheet.Range("A4:K2000") 'spéciale dédicace à K2000
c.Value = CDec(c)

Et hop ! le tour est joué... (opération faite sur les "nombres qui ne sont pas affiché en tant que nombres malgré le fait qu'ils aient une virgule et non un point")

Merci à vous deux en tout cas !!

[L'Albatros]

Avec plaisir !
Merci de pensez à nous voter tous les 2 du coup...
Chapeau pour ton

Code :

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

c.Value = CDec(c)

K2000 forever

[Docmarti]

Une technique qui fonctionne quelle que soit la valeur dans la cellule
consiste à changer d'abord la propriété NumberFormat de la cellule pour "General"
puis d'y réécrire la valeur.

Code :

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

1
2
3
4
For Each c In Selection
 c.NumberFormat = "General"
 c.Value = c.Value
Next