Remplacer un point par une virgule

[G'Claire]

Bonsoir au forum


Ce renseignement est surtout destiné pour mon frère.

Il possède une station météo, et lors de la transmission des données en texte sous Word pad, il a fait un copier-coller vers exel, mais le problème est que toutes les valeurs retransmises sont avec des points et pour ses calculs, les valeurs ne sont pas prisent en comptent en tant que tel et ne permettent pas de faire ses calculs.

Sachant qu'il a un tableau de 1 feuilles, avec environs 8 colonnes, de 2000 lignes.

Est-il possible de remplacer ce point par une virgule dans toutes les cellules.

Nous vous remercions d'avance, G'Claire

 

[Jean-Marie]

Bonsoir, Claire

Le plus simple, sélectionne les colonnes puis fait Edition/remplacer le . par la , et OK.

Bonne soirée

@+Jean-Marie

 

[Vériland]

Ben oui (!!)

Tout comme Word, Excel possède la fonction "Rechercher"

Dans Excel tu fais Edition / Chercher

tu mets un . (points)

ensuite tu fais Remplacer

tu mets une , (virgule)

puis Remplacer tout si tu es sûr de toi

et voilà...Y savais pas sa ton frère ?...lol

 

[Rhodan]

Salut
tout à fait la soluce c'est
sélectionner toutes les cellules de la feuille (la case entre ligne et colonne) puis CCtrl+H (ou édition\Remplacer), ce qui ouvre la fenêtre Remplacer , là il faut remplir les champs :
- remplacer avec ---> .
- par avec ---> ,

et voilà et en plus il est possible de faire la macro :


Range("ta sélection").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

 

[Vériland]

Oups Jean-Marie...moi pas vu...loool

Bien le bonsoir

 

[G'Claire]

Jean-Marie et Vériland

Merci de votre réponse si rapide.

Comme l'ignorance rend bête, bienvenue chez les burnes. Nous vous remercions en espérant, de ne pas vous avoir fait transpirer, vu la complexité du travail demandé....lol

G'Claire et son frère G'Teinds

 

[Jean-Marie]

Bonsoir à toutes et tous


Une autre solution consiste à modifier les paramètres régionaux du panneau de configuration.

Il faut indiquer comme séparateur décimal le point (.) et non la virgule.

Je ne sais pas si vous avez remarqué, l'installation du système d'exploitation version FR, donne comme paramètre par défaut la virgule, alors que le clavier AZERTY donne le point.


Bonsoir

 

[G'Claire]

Salut a toutes et tous

Décidemment, je vais battre tous les records dans ce forum.

Le fils le plus long (78 posts)
Le post le plus long
et maintenant la question, la plus nulle.

Bonjour les trophés, G'Claire

 

[alain]

Bonsoir,

C'est tout simple.

Dans Excel, le séparateur décimal est la virgule alors que dans VBA, c'est le point.

Il suffit donc de lancer le code ci-dessous :

Sub Remplacement_Point()
Dim Cell As Range
ActiveSheet.UsedRange.Select
'La ligne ci-dessus sélectionne toutes les cellules utilisées de la feuille
'A remplacer éventuellement par la sélection des cellules que l'on veut
'traiter
For Each Cell In Selection
valeur = Val(Cell.Value) 'renvoie la valeur exacte
Cell = valeur 'que l'on réécrit dans la même cellule
Next
End Sub

Bonne soirée.

@+Alain

 

[Jean-Marie]

Re...

Claire tu as peut-etre battre un nouveau record, celui-ci du nombre de possibilités différentes.

Plus une formule, =CNUM(SUBSTITUE(B9;".";","))

Bonne soirée.

@+Jean-Marie

 

[G'Claire]

Re, Re

Je suis un champion,
je suis un champion
je suis, je suis, je suis un champion.

Enfin merci a tous et j'espère que cela pourra servir a d'autre

G'Claire

 

[Laeti]

Public Function FormatToDouble(nombre As Variant)
Dim pos As Integer
pos = 0
pos = InStr(nombre, ".")
If (pos <> 0) Then
Mid(nombre, pos, 1) = ","
End If
FormatToDouble = nombre
End Function

elle marche ...

 

[@+Thierry]

Coucou
Laeti,
Jean-Marie,
Alain,
Rhodan,
Vériland
G'claire...
Dans l'ordre d'apparition inverse à l'écran​

Et oui un record de solutions... En voici une autre, plus spécifique, mais c'est pour compléter ce fil dans l'histoire...

Alors pour les UserForms et plus particulièrement TextBox de saisie... Si on est en clavier FR, le point du pavé numérique fait des siennes... (N'est-ce pas Vincent !!!) Voici la méthode :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub


Et puis encore un autre truc trouvé aussi un jour de surf :
Sub PointOn()
Application.AutoCorrect.AddReplacement What:=".", Replacement:=","
End Sub

Sub PointOff()
Application.AutoCorrect.DeleteReplacement What:="."
End Sub

Voilà G'Claire, THe XLD's Guiness Man !!!

Bonne Journée à tous et toutes
@+Thierry