XL 2019 Problème de décimales

[Danyk01]

Bonjour la communauté
J'ai un problème de décimales
Mon programme CAO (TopSolid) me sort une liste de débit que je dois exporter en xlsx pour pouvoir l'utiliser.
mais les chiffres sortent avec un point pour les décimales (ex: 596.0)
Dans Excel je ne peux rien faire avec ce format, j'ai essayé de changer dans les formats de nombres, j'ai essayé de remplacer le point par une virgule, mais rien ne fonctionne.
j'ai changé manuellement le point par une virgule et là ça marche.
mais vu le nombre de chiffre à modifier j'aimerais trouver une technique pour modifier par sélection
Merci pour vos réponses
En pièce jointe le tableau excel ESSAI

 

[Hecatonchire]

Bonjour,

Chez moi la commande Remplacer (ctrl+h) fait le job

Il suffit d'appliquer dans un 2eme temps le format d'affichage désiré

 

[Dranreb]

Bonjour.

Option Explicit
Sub TexteNum()
   Dim Cel As Range, S As String
   For Each Cel In Selection
      If VarType(Cel.Value) = vbString Then
         S = Replace(Replace(Cel.Value, ",", ""), ".", ",")
         If IsNumeric(S) Then Cel.Value = CDbl(S)
         End If
      Next Cel
   End Sub

 

[TooFatBoy]

Bonjour,

Chez moi la commande Remplacer (ctrl+h) fait le job

J'allais le dire. 😉

 

[sylvanu]

Bonjour tout le monde,

j'ai essayé de remplacer le point par une virgule, mais rien ne fonctionne.

Il y a cependant un piège.
Il faut remplacer le point par la virgule ( le point ) du pavé numérique.
Si on remplace le point par la virgule du "clavier" alors ça ne marche pas. ( tout du moins sur mon PC )

 

[TooFatBoy]

Il y a cependant un piège.
Il faut remplacer le point par la virgule ( le point ) du pavé numérique.
Si on remplace le point par la virgule du "clavier" alors ça ne marche pas. ( tout du moins sur mon PC )

Étonnant.
Excel 2007 ?
Windows 11 ?

 

[Hecatonchire]

Bonjour TooFatBoy, sylvanu,

Sur mon ordi, le pavé numérique génère une virgule et non un point donc effectivement ce n'est pas ce qu'il faut utiliser pour la zone Rechercher.
Pour la zone Remplacer les 2 touches virgules (partie alpha et pavé numérique) sont fonctionnelles.

 

[Danyk01]

Bonjour,

Chez moi la commande Remplacer (ctrl+h) fait le job

Regarde la pièce jointe 1223214

Il suffit d'appliquer dans un 2eme temps le format d'affichage désiré

Ça fonctionne, j'ai omis de prendre la virgule du pavé numérique
Merci bcp

 

[Danyk01]

Étonnant.

Excel 2007 ?
Windows 11 ?

Ça fonctionne, j'ai omis de prendre la virgule du pavé numérique

Bonjour,


J'allais le dire. 😉

Bonjour tout le monde,

Il y a cependant un piège.
Il faut remplacer le point par la virgule ( le point ) du pavé numérique.
Si on remplace le point par la virgule du "clavier" alors ça ne marche pas. ( tout du moins sur mon PC )

Merci Sylvanu, c'était bien là l'erreur
Problème résolu

 

[Danyk01]

Bonjour.

Option Explicit
Sub TexteNum()
   Dim Cel As Range, S As String
   For Each Cel In Selection
      If VarType(Cel.Value) = vbString Then
         S = Replace(Replace(Cel.Value, ",", ""), ".", ",")
         If IsNumeric(S) Then Cel.Value = CDbl(S)
         End If
      Next Cel
   End Sub

Merci pour ta solution, mais avec le remplacement (ctrl H) ça fonctionne finalement
A bientôt