Convertir un texte en nombre

[Axel22]

Bonjour à tous,
J'ai un petit problème je suis à la recherche d'une macro qui me permet de convertir un texte en nombre.
J'ai une colonne avec des nombre de type 63.03332 et je voudrais obtenir ce nombre avec deux chiffres significatif --> 63,03
J'ai écris le code suivant mais cela ne fonctionne pas
Sheets("emplacement").Columns(1).NumberFormat = "0.00"

Merci d'avance bonne soirée

 

[Hasco]

Bonjour,

C'est certainement la "macro qui me permet de convertir un texte en nombre " qui est à modifier afin que le résultat ne soit plus sous forme de texte mais sous forme de nombre.

Bonne soirée

 

[eriiic]

Bonjour,

sans macro, remplacer le point par la virgule

Ta macro applique un format numérique. En aucun cas elle convertit en texte en nombre
eric

 

[Modeste geedee]

Bonsour®

sans macro, remplacer le point par la virgule

le demandeur est un inconditionnel des macros ... !!!

https://www.excel-downloads.com/threads/convertir-un-nombre-en-date.20030503/#post-20225879

 

[eriiic]

Bah, il comprendra un jour qu'apprendre à se servir d'excel peut éviter d'attendre 3h une réponse ;-)

 

[job75]

Bonsoir à tous,

Sub TexteVersNombreArrondi()
Dim ndec As Byte, P As Range, tablo, dsep$, i&, x$
ndec = 2 'nombre de décimales, à adapter
Set P = Sheets("emplacement").UsedRange.Columns(1) 'plage à adapter
tablo = P.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
dsep = Application.DecimalSeparator
For i = 1 To UBound(tablo)
    x = Replace(tablo(i, 1), ".", dsep)
    If IsNumeric(x) Then tablo(i, 1) = Round(x, ndec) 'convertit et arrondit
Next
P = tablo 'restitution
End Sub

A+