XL 2013 [résolu] userform format de nombre

[MASSJIPE]

Bonjour le forum
J'utilise un userform pour transférer des valeurs mais seulement il sont pas au format nombre dans les cellules correspondante je doit à chaque cellule convertir au format nombre mais je ne sais pas quoi faire
Merci

Private Sub CommandButton5_Click()
With Feuil8
col = .Cells(7, Columns.Count).End(xlToLeft).Column + 1 ' Prend en compte la ligne 4
.Cells(7, col) = TextBox1.Value 'ligne 7 PROD TCM
.Cells(11, col) = TextBox2.Value 'ligne 9 DPU EMB
.Cells(9, col) = TextBox3.Value 'ligne 11 NSTR EMB
.Cells(20, col) = TextBox6.Value 'ligne 22 DPU TOL
.Cells(18, col) = TextBox7.Value 'ligne 24 NSTR TOL
.Cells(68, col) = TextBox4.Value 'ligne 64 DPU PEINT
.Cells(66, col) = TextBox5.Value 'ligne 66 NSTR PEINT
End With
End Sub

Private Sub UserForm_Initialize()
     Me.TextBox1 = Sheets("BDD").Range("A1") 'volume TCM
     Me.TextBox2 = Sheets("STR  DPT").Range("E7").Text 'DPU Off EMBOUTISSAGE
     Me.TextBox3 = Sheets("STR  DPT").Range("O7") 'NSTR EMBOUTISSAGE
     Me.TextBox4 = Sheets("STR  DPT").Range("E10").Text 'DPU Off PEINTURE
     Me.TextBox5 = Sheets("STR  DPT").Range("O10") 'NSTR PEINTURE
     Me.TextBox6 = Sheets("STR  DPT").Range("E12").Text 'DPU Off TOLERIE
     Me.TextBox7 = Sheets("STR  DPT").Range("O12") 'NSTR TOLERIE
End Sub

 

[Chris24]

Bonjour

En fonction de ce que tu saisis dans tes "TextBox"
.Cells(7, col) =CInt(TextBox1.Value 'ligne 7 PROD TCM)
.Cells(7, col) =CDbl( TextBox1.Value 'ligne 7 PROD TCM)

Cdt

 

[MASSJIPE]

Bonsoir
J'ai prit cette ligne .Cells(7, col) =CDbl( TextBox1.Value 'ligne 7 PROD TCM)
Merci beaucoup