Convertir le contenu d'une textbox en nombre

Bonjour !

Je suis face a un problème !

En effet Dans un userform, j'ai le contenu de plusieurs texbox qui ont besoin d'être converti en nombre.

Et excel reconnait le contenue qui est retranscrit dans un classeur en texte et non en nombre

Je joint un fichier excel à ma demande

Merci d'avance de votre aide !

118sav.zip (53.31 Ko)

Bonjour

Utilises la propriété Value

   Sheets("Table").Cells(ligne, 1) = Me.Project_number.Value
   Sheets("Table").Cells(ligne, 2) = Me.Opening_week.Value
   Sheets("Table").Cells(ligne, 3) = Application.Proper(Me.Country)
   Sheets("Table").Cells(ligne, 4) = Application.Proper(Me.City)
   Sheets("Table").Cells(ligne, 5) = Me.Area
   Sheets("Table").Cells(ligne, 6) = Me.Client
   Sheets("Table").Cells(ligne, 7) = Application.Proper(Me.Project_name)
   Sheets("Table").Cells(ligne, 8) = Me.Amount.Value
   Sheets("Table").Cells(ligne, 9) = Me.Project_status
   Sheets("Table").Cells(ligne, 10) = Me.Received_order.Value
   Sheets("Table").Cells(ligne, 11) = Me.Project_completed.Value
   Sheets("Table").Cells(ligne, 12) = Me.Sales
   Sheets("Table").Cells(ligne, 13) = Application.Proper(Me.Remarks)

bonsoir

Pour moi une seule colonne est à convertir ( la H)

je ferais ça;

je met cette colonne en format monetaire avec le sigle € puis dans la macro.

je remplace:

Sheets("Table").Cells(ligne, 8) = Me.Amount

par

Sheets("Table").Cells(ligne, 8) = Me.Amount * 1

edit remplacer le smileys par 8

Edit de Nad : j'ai désactivé les smileys

Banzai64 a écrit :

Bonjour

Utilises la propriété Value

   Sheets("Table").Cells(ligne, 1) = Me.Project_number.Value
   Sheets("Table").Cells(ligne, 2) = Me.Opening_week.Value
   Sheets("Table").Cells(ligne, 3) = Application.Proper(Me.Country)
   Sheets("Table").Cells(ligne, 4) = Application.Proper(Me.City)
   Sheets("Table").Cells(ligne, 5) = Me.Area
   Sheets("Table").Cells(ligne, 6) = Me.Client
   Sheets("Table").Cells(ligne, 7) = Application.Proper(Me.Project_name)
   Sheets("Table").Cells(ligne, 8) = Me.Amount.Value
   Sheets("Table").Cells(ligne, 9) = Me.Project_status
   Sheets("Table").Cells(ligne, 10) = Me.Received_order.Value
   Sheets("Table").Cells(ligne, 11) = Me.Project_completed.Value
   Sheets("Table").Cells(ligne, 12) = Me.Sales
   Sheets("Table").Cells(ligne, 13) = Application.Proper(Me.Remarks)

C'est exactement ce que je cherche ! excellent

testé et fonctionnel

Encore merci !

Rechercher des sujets similaires à "convertir contenu textbox nombre"