VBA appel à une function erreur compilation "tableau attendu"

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:

---

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:

---

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

Bonjour,

bienvenue sur DVP :salut:

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)

Bonjour,

La ligne qui pose problème c'est :

Code:

---

TextBox21.BackColor = FCTCouleur_fond(TextBox21.Value)

---

Déclaration :

Code:

---

1 2	Dim FCTCouleur_fond As Long

---

Je joins mon fichier.
Merci

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 :aie:

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

Code:

---

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

---

SUPER !!!

Merci ça fonctionne.

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