Module de classe et TextBox

[mécano41]

Bonjour à tous,

Quelqu'un pourrait-il m'expliquer comment passer le nom d'une textbox définie dans un module de classe dans une ligne de code destinée à modifier cette textbox dans l'USF?

Voir GroupeTextBox dans le module de classe ClasseTextBox du fichier joint.

J'ai essayé aussi en passant par un objet intermédiaire...pas bon non plus ...

Merci d'avance

Cordialement

 

[Cousinhub]

Re : Module de classe et TextBox

Bonsoir,

je ne comprends pas du tout ce que tu veux....

Tu ne veux autoriser que des valeurs numériques?

Dans ce cas, dans le module de classe "ClasseTextBox", tu mets cet évènement :

Private Sub GroupeTextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

Edit : A quelques secondes près....
Salut, Pierrot, on a du comprendre la même chose.....
Maintenant..... Il voulait une solution, sans expliquer le problème....
On croise les doigts

 

[Pierrot93]

Re : Module de classe et TextBox

Bonjour Mecano

si j'ai bien compris, essaye ce code, dans le module de classe des textbox :

Option Explicit
Public WithEvents GroupeTextBox As MSForms.TextBox
Private Sub GroupeTextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

bonne soirée
@+

Edition bonsoir bhbh

 

[mécano41]

Re : Module de classe et TextBox

Vous aviez parfaitement compris tous les deux. Cela fonctionne parfaitement comme je le voulais et cela m'a permis de comprendre un peu mieux l'utilisation d'un module de classe (c'est la première fois que je l'utilise, alors....)

Encore merci

Cordialement