Discussion :

[manustarfoot]

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

[Jean-Philippe André]

Bonjour,

plutôt que de passer par du code VBA, tu peux utiliser la mise en forme conditionnelle qui me semble plus pertinente ici

[manustarfoot]

Merci.

Mais donc ce n'est pas possible de le faire directement dans la fonction ?

[Jean-Philippe André]

La fonction perd le fil de l'appel, car le focus se déplace vers les cellules que tu modifies, tu te retrouves donc avec un #VALEUR en principe.
C'est pour cela que je te faisais cette suggestion.