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 futurs voici un code simplifié du problè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
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..

J'ai cherché sur le net et.. rien trouvé help! Merci.