XL 2019 Problème de décimales

Danyk01 · Dimanche à 10:44

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

sylvanu · Dimanche à 11:05

Bonjour tout le monde,

Danyk01 à dit:
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 )

Hecatonchire · Dimanche à 10:52

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 · Dimanche à 10:55

Bonjour.

VB:

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 · Dimanche à 10:59

Bonjour,

Hecatonchire à dit:
Chez moi la commande Remplacer (ctrl+h) fait le job

J'allais le dire. 😉

sylvanu · Dimanche à 11:05

Bonjour tout le monde,

Danyk01 à dit:
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 · Dimanche à 11:10

sylvanu à dit:
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 · Dimanche à 11:23

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 · Dimanche à 14:54

Hecatonchire à dit:
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 · Dimanche à 14:58

TooFatBoy à dit:
Étonnant.

Excel 2007 ?
Windows 11 ?

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

TooFatBoy à dit:
Bonjour,

J'allais le dire. 😉

sylvanu à dit:
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 · Dimanche à 15:01

Dranreb à dit:

Bonjour.

VB:

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

XL 2019 Problème de décimales

Danyk01

XLDnaute Occasionnel

Pièces jointes

sylvanu

Hecatonchire

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Hecatonchire

XLDnaute Occasionnel

Danyk01

XLDnaute Occasionnel

Danyk01

XLDnaute Occasionnel

Danyk01

XLDnaute Occasionnel

Discussions similaires

XL 2019 Problème de décimales

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency