Format numérique Textbox

ExcelDow · 18 Février 2016

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 · 18 Février 2016

Re : Format numérique Textbox

Bonsoir ExcelDow,

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

VB:

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 · 18 Février 2016

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 · 18 Février 2016

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 !

Format numérique Textbox

ExcelDow

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

ExcelDow

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires

Format numérique Textbox

ExcelDow

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

ExcelDow

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency