Convertir un texte en nombre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 😉
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
541
Retour