Discussion :

[MarylineS]

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

[Jean-Philippe André]

Bonjour,

bienvenue sur DVP

Aurais-tu la ligne qui pose ce problème ?

Il pourrait être pertinent dans un premier temps de typerlde retour de ta fonction (les couleurs sont de types numérique, donc tu peux utiliser As Long ou As Integer)

[MarylineS]

Bonjour,

La ligne qui pose problème c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox21.BackColor = FCTCouleur_fond(TextBox21.Value)

Déclaration :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Dim FCTCouleur_fond As Long

Je joins mon fichier.
Merci

[Jean-Philippe André]

Ok, donc l'erreur est simple à corriger

Lorsque tu utilises une fonction avec un libellé, tu ne pourras pas utiliser une variable qui porte le même nom dans le même module
Analogie avec les chiens : tu ne peux pas appeler deux chiens dans la maison avec le meme prénom, sinon comment savoir lequel va venir, le chihuahua ou le dogue allemand

Aussi, tu peux supprimer la ligne de Dim et ajouter en fin de déclaration de fonction As Long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Function FCTCouleur_fond(RechValeur As String) As Long
'le reste de ton code

[MarylineS]

SUPER !!!

Merci ça fonctionne.

J'avance je vais passer à l'affichage de tableau... A bientôt peut-être ... certainement