Discussion :

[jgx342]

Bonjour,

J'essai de faire une macro qui compte le nombre de cellule verte de la cellule
J5 à J25.

Voici mon code :

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
 
Function CalculVictoire(InRange As Range) As Integer
Dim Rng As Range
Dim compteurvic As Integer
Application.Volatile
 
compteurvic = 0
 
For Each Rng In InRange.Cells
 
     If Rng.Interior.ColorIndex = 14 Then
        compteurvic = compteurvic + 1
      End If
 
Next Rng
 
End Function

Je l'appel de la façon suivante : =CalculVictoire(J5:J25)

Elle me retourne 0, pourtant j'ai bien des cellules vertes dans ma feuille et j'ai le bon code de couleur.

Merci de m'aidez.

[wilfried_42]

bonjour

tes couleurs ne sont elle pas mises en place avec une mfc ? ce qui ne m'etonnerait qu'à moitié

les MFC n'agissent pas directement dans une cellule, elle se colle à la cellule comme un papier peint, quand la MFC n'agit plus, la cellule reprend sont caractere d'origine. si la MFC modifiait directement la cellule, le caractere d'origine serait perdu en ne pourrait etre restituer

Suis ce Fil, il donne une solution par macro, et non par fonction

[Qwazerty]

SAlut
Pas etonnant a aucun moment tu ne lui passe la valeur a ta function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 CalculVictoire = CompterVic

Rajoute ca juste avant le End Function, ca devrait aller mieux

[Edit]
Je ne connaissais pas la fonction
Application.Volatile mais a mon avis ca ne change rien au probleme en vu de ce que j'ai pu en lire d'en l'aide, en effet tu ne fait aucun calcul dans une cellule et ta function attend bien qu'on lui passe un valeur avant la sortie, j'oserai meme dire que dans le context cette ligne ne sert a rien [/Edit]
A++
Qwaz

[Heureux-oli]

Jette un oeil ici

Ça te donnera une idée de comment faire.