Bonjour,
J'ai rencontré un problème ici : je ne suis pas parvenu a passer une TextBox en argument. Je n'ai pas très très tellement besoin de connaitre la solution mais j'en suis curieux pour mes projets futursvoici un code simplifié du problème :
Malgré le "As MSForms.TextBox" l'argument récupéré est TextBox1.Value (la propriété par defaut de TextBox) au lieu de l'objet TextBox lui même..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Private Sub TextBox1_Change() TextBoxCheck (TextBox1) End Sub Private Sub TextBox2_Change() TextBoxCheck (TextBox2) End Sub '[...] Private Sub TextBoxCheck(ByRef ThisTextBox As MSForms.TextBox) If IsNumeric(ThisTextBox) Then ThisTextBox.BackColor = &HC0FFC0 'Vert Else ThisTextBox.BackColor = &HC0FFFF 'Jaune End If End Sub
J'ai cherché sur le net et.. rien trouvéhelp! Merci.
Partager