Formatage Chiffre

Seb

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

VB:
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
 

Pièces jointes

  • Shapes Format Number.xlsm
    19.5 KB · Affichages: 21
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 932
Messages
2 093 729
Membres
105 802
dernier inscrit
Witchun