Formatage Chiffre

[Seb]

Bonjour à tous,

Je suis pas très à l'aise dans la mise en format de chiffre.

J'ai un chiffre: 45,05 et je voudrais renvoyer 045.05 mais je galère. Si quelqu'un a une idée ? La commande qui renvoie le chiffre est la suivante:

ActiveSheet.Shapes("Rectangle à coins arrondis " & i).Select ( Dans le shape est ecrit 045.05)
Sheets("Listing").Cells(Ligne, "V") = Selection.Characters.Text ( la ligne me revoie 45,05 alors que je voudrais conserver 045.05)

Merci beaucoup

Seb

 

[Lone-wolf]

Bonsoir Seb

Essaie comme ceci :

With Sheets("Listing")
.Cells(Ligne, "V") = Selection.Characters.Text
.Cells(Ligne, "V") = Replace(.Cells(Ligne, "V").Value , ",", ".")
End With

 

[Seb]

Bonsoir Lone-wolf,

Désolé je répond un peu tardivement.. Je viens d'essayer mais ça ne fonctionne pas, j'ai toujours 45,05 qui s'affiche. Je croix que je viens de tout essayer, je sais vraiment pas comment m'y prendre..

 

[Lone-wolf]

Bonsoir Seb

Je n'avais pas fait attention à ceci: "Rectangle à coins arrondis " & i. Pour moi ça veux dire que tu as plusieures formes, c'est bien ça?

Si c'est ça, en PJ.

La macro pour ceux qui seraient interéssés

Sub Format_Numbers()
Dim Sha As Shape, i As Long
  With Sheets(1)
  .Activate
  .Range("b2:b6").ClearContents
  For i = 2 To 6
  Set Sha = ActiveSheet.Shapes("shape" & i)
  Sha.TextFrame.Characters.Text = ""
  .Cells(i, 2) = .Cells(i, 1)
  .Cells(i, 2).NumberFormat = "000.00"
  .Cells(i, 2) = Replace(.Cells(i, 2), ",", ".")
  Sha.TextFrame.Characters.Text = Format(.Cells(i, 2), "000.00")
  Next i
  End With
End Sub

 

[Seb]

Bonjour Lone-wolf,

Merci pour ta réponse, je l'ai adapté et ça marche nickel !