Convertir un texte en nombre

Axel22

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

XLDnaute Barbatruc
Repose en paix
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
 

job75

XLDnaute Barbatruc
Bonsoir à tous,
VB:
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+
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG