Création de fonction

Bonjour a tous

je souhaite crée une Fonction (Function sous VBA) qui permet de changer la couleur d'une cellule en tapant le code RGB, pour créer un nuancier de couleur correspondant a des peinture pour figurine.

je vous donne le code que j'ai tapé pour le moment :

Function RGrB(RED, GREEN, BLUE As Integer) As String

Dim RED, GREEN, BLUE As Integer

activecells.Interior.Color = RGrB(RED, GREEN, BLUE)

RED = Rouge.Value

GREEN = vert.Value

BLUE = Bleu.Value

End Function

pour le moment cela ne marche pas

quand je tape =RGrB(255;255;255)

excel m'affiche #NOM?

je vous remercie d'avance de votre aide

4formule-rgb.xlsm (80.87 Ko)

Bonsoir,

Ci-joint une proposition à tester.

La couleur se met à jour en modifiant les valeurs dans les colonnes A, B ou C, sur chaque ligne.

Bonne soirée

Bouben

9nuancier.xlsm (18.94 Ko)

Bonjour

Merci pour ta proposition BOUBEN

Mais j'a un souci je ne peu pas étendre quelque formule que ce soit saisi des valeur manuel uniquement

A bientot

Bonjour,

Beaucoup d'erreur dans ton code...

Function RGrB(RED, Green, BLUE As Integer) As String
Dim RED, Green, BLUE As Integer

Vba te le dit en plus : "Déclaration déjà existante dans la portée en cours" = tu n'as pas à re-déclarer RED, Green, BLUE qui est déjà fait dans Function.

Quand tu écris "RED, Green, BLUE As Integer" seul BLUE est Integer, les autres sont Variant

De toute façon tu peux oublier de le faire par fonction. Une fonction retourne une valeur et c'est tout. En aucun cas elle ne peut modifier son environnement (à un bug près), ce n'est pas son but.

eric

Rechercher des sujets similaires à "creation fonction"