Bonjour,

j'ai créé une fonction simple qui permet d'additionner deux valeurs (entiers) (2 cellules) et de retourner un entier.

Mais j'aimerais ajouter dans cette fonction, une animation de couleur de la cellule qui possède cette fonction.

J'ai essayé en mettant une 3eme entrée "CaseResultat" (celle ci étant la cellule où j'appelle la fonction)
Mais rien ne fonctionne, même pas le retour de l'addition.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Function perso2(Case1 As Range, Case2 As Range, CaseResultat As Range) As Integer
 
resultat = Case1.Value + Case2.Value
 
If (resultat < 5) Then
CaseResultat.Interior.Color = RGB(255, 0, 0)
End If
 
perso2 = resultat
 
End Function
Comment dois-je procéder ?

Merci d'avance