bonjour,
nouvelle sur ce forum, j'ai un souci de compilation VBA "tableau attendu :
Voici ma function (je souhaite mettre une couleur de fond en fonction de la valeur de TextBox) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Function FCTCouleur_fond(RechValeur As String)
 
Select Case RechValeur
    Case "OK"
        FCTCouleur_fond = vbGreen
    Case "KO"
        FCTCouleur_fond = vbRed
    Case "EN", "SN", "TN"
        FCTCouleur_fond = vbYellow
   End Select
 
End Function
Un des appels de la function :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    RechValeur = TextBox21.Value
    MsgBox "RechValeur = " & RechValeur
    TextBox21.BackColor = FCTCouleur_fond(TextBox21.Value)
    MsgBox "TextBox21.BackColor =  " & TextBox21.BackColor
Merci pour votre aide