Discussion :

[letoulouzin31]

Rochmenback precise plusieur koi??????? sinon on ne pourra t'aider

P.s.: bon pour ma fonction je v l'envoyer à un de mes prof il pourra peu être m'aider car celà ne marche toujours pas. Vesta je te remercie pour toute l'aide que tu m'a apporté je posterai la solution quand je l'orai trouvé.

[letoulouzin31]

ben voilà comme promis la solution à mon problème . Finalement la solution pour le repérage des couleur de police dans le tableau ce fait a l'aide d'une couleur de fond de la cellule où la formule est insérer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function somme_cel_couleur(SearchArea As Object, BgColor As Range) As Double
 
Dim macoul As Byte, cell As Range
Application.Volatile True
 
somme_cel_couleur = 0
macoul = BgColor.Interior.ColorIndex
 
For Each cell In SearchArea
        If cell.Font.ColorIndex = macoul Then 
                somme_cel_couleur = somme_cel_couleur + cell.Value
Next cell
End Function

je remercie toutes les personnes m'ayant aidé pour ce problème