Format numérique Textbox

[ExcelDow]

bonjour à vous tous,
J'aimerais juste un petit soucis de code,
J'aimerais lorsque je saisi un chiffre dans le textbox 1 des 2 USF, un chiffre et non du texte
Voilà
Merci

 

[mapomme]

Re : Format numérique Textbox

Bonsoir ExcelDow,

Si j'ai bien compris, essayez le code suivant:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Select Case Chr(KeyAscii)
    Case "0" To "9"
    Case Else: KeyAscii = 0
  End Select
End Sub

 

[ExcelDow]

Re : Format numérique Textbox

Bonsoir mapomme,
Comme on dit
Essayé pas pu
Chez moi ça marche pas

Question:
Serait-il pas mieux de corriger la première ligne de ce code pour les 2 USF ??
Private Sub UserForm_Initialize()
Me.TextBox1.Text = ValTBx1
Me.TextBox2.Text = ValTBx1
Me.TextBox3.Text = ValTBx1
Me.TextBox4.Text = ValTBx1
Me.TextBox5.Text = ValTBx1
Me.TextBox6.Text = ValTBx1
Me.TextBox7.Text = ValTBx1
Me.TextBox8.Text = ValTBx1
Me.TextBox9.Text = ValTBx1
End Sub

 

[Dranreb]

Re : Format numérique Textbox

Bonsoir.

Qu'est ce que c'est que ces deux UserForm exactement pareils ?
Et cette variable unique ValTBx1 qui alimente d'une même valeur 9 contrôles à vocations apparemment complètement différentes ?
Tout cela n'a aucun sens !