Bonjour,

Dans le script suivant, la fonction va systématiquement au message d'erreur, dès que j'essaye de modifier une variable d'une cellule !
Pourquoi ?

Merci

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
19
20
21
22
23
24
25
26
27
28
29
30
Function Mod_Couleur(C, R, G, B)
Dim Lieu As Range 'C
Dim Rouge As Integer 'R
Dim Vert As Integer 'G
Dim Bleu As Integer 'B
Dim Feuille As Excel.Worksheet
 
 
On Error GoTo fin
 
Rouge = R.Value
Vert = G.Value
Bleu = B.Value
Couleur = RGB(Rouge, Vert, Bleu)
Nom_de_la_feuille = C.Worksheet.Name
 
Ligne = C.Row
Colonne = C.Column
Set Lieu = Worksheets(Nom_de_la_feuille).Cells(Ligne, Colonne)
 
'à partir d'ici, on est en erreur !!
 
Lieu.Value = Couleur
Lieu.Interior.Color = Couleur
Mod_Couleur = "OK"
Exit Function
fin:
Mod_Couleur = ""
'
End Function