Discussion :

[anarchiste-mouton]

Bonjour,

J'aimerai comprendre pourquoi cette function ne marche pas :

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
18
 
Function Coul(Couleur As String) As Long
    Select Case Couleur
        Case "rouge"
            Set Coul = RGB(255, 0, 0)
        Case "bleu"
            Set Coul = RGB(0, 0, 255)
        Case "vert"
            Set Coul = RGB(0, 255, 0)
        Case "blanc"
            Set Coul = RGB(255, 255, 255)
        Case "jaune"
            Set Coul = RGB(255, 255, 0)
        Case "noir"
            Set Coul = RGB(0, 0, 0)
 
    End Select
End Function

Il semblerait qu'un objet soit requis

[Menhir]

Supprime les Set.

Set sert à affecter un objet.
Ce que tu utilises, ce ne sont que des variables de valeurs et non des références d'objets.

[anarchiste-mouton]

Ah merci Menhir