Bonjour le forum
J' ai ce code qui permet de remplir une feuilles par TextBox. Les textbox a partir de D1 jusqu' à
la derniere colonne sont alimenté par des Chiffres.
Le pb c' est que ces chiffres sont en mode texte, comment puis je faire pour avoir un formatage en numérique.
J' ai essayé avec CDb mais cela ne marche pas. soit je n' ai pas la bonne synthaxe ou il ne convient pas.
Merci d' avance pour toute aide
Aladin
J' ai ce code qui permet de remplir une feuilles par TextBox. Les textbox a partir de D1 jusqu' à
la derniere colonne sont alimenté par des Chiffres.
Code:
Dim Dl As Long
Dim x As Byte
With Sheets("Feuil1")
.Activate
Dl = .Range("A65536").End(xlUp).Row + 1
For x = 1 To 16
' .Cells(Dl, x).Value = Me.Controls("TextBox" & x).Value
.Cells(Dl, x).Value = Me.Controls("TextBox" & x).Value
Next x
Le pb c' est que ces chiffres sont en mode texte, comment puis je faire pour avoir un formatage en numérique.
J' ai essayé avec CDb mais cela ne marche pas. soit je n' ai pas la bonne synthaxe ou il ne convient pas.
Merci d' avance pour toute aide
Aladin