Convertir Nombre stocké en texte en nombre

Bonjour,

Je souhaiterais savoir si il est possible en vba de changer un nombre stocké sous forme de texte en nombre normal et après pouvoir lui affecter un format.

Merci par avance pour vos réponses.

Bonjour,

Regardez les fonctions de conversion dans la documentation Microsoft Fonctions de conversion

Sinon, si votre donnée est dans un Textbox d'un Userform, vous pouvez utiliser : Val(TextboxX)

Merci pour la réponse.

Je suis vraiment débutant et je suis déjà tombé sur la page de documentation et je ne comprend vraiment rien.

Dans mon cas, j'ai deux documents, le premier qui est extrait d'un logiciel de gestion. Dans celui-ci, il y a une valeur que je souhaite copier-coller dans un autre document (j'ai réussi à le faire). Celle ci est en pourcentage et mon logiciel de gestion lors de l'extraction ajoute dans la cellule le symbole "%" et donc Excel traite ça comme étant un texte et non une valeur.

Le problème est que j'ai besoin de cette valeur pour réaliser des calculs.

Pourriez-vous mettre en ligne un fichier exemple sans données confidentielles ?

Voici ci-joint un exemple. J'aimerais que la valeur OTD en B3 dans le fichier indicateur soit sous format nombre et en pourcentage.

3otd-01.xlsx (9.25 Ko)

A tester :

Sub MAJ_OTD()

Dim wk_fichier1 As Workbook, wk_fichier2 As Workbook
Dim ws_fichier1feuil1 As Worksheet, ws_fichier2feuil1 As Worksheet

        Set wk_fichier1 = ActiveWorkbook
        Set ws_fichier1feuil1 = wk_fichier1.Worksheets(1)
        Set wk_fichier2 = Application.Workbooks.Open("C:\Users\jboutinet\Desktop\Affichage atelier1\OTD_01.xlsx")
        Set ws_fichier2feuil1 = wk_fichier2.Worksheets(1)

        With ws_fichier2feuil1
             .Range("A1").End(xlDown).Select
             ActiveCell.Offset(-1, 0).Select
             ActiveCell.End(xlToRight).Select
             ActiveCell.Copy
        End With

        With ws_fichier1feuil1.Range("B3")
             .PasteSpecial Paste:=xlPasteValues
             .Value = CDbl(Split(.Value, "%")(0)) / 100
             .NumberFormat = "0.00%"
        End With

        wk_fichier2.Close False

        Set wk_fichier1 = Nothing: Set ws_fichier1feuil1 = Nothing: Set wk_fichier2 = Nothing: Set ws_fichier2feuil1 = Nothing

End Sub

Super ça marche merci beaucoup

image
Rechercher des sujets similaires à "convertir nombre stocke texte"