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