Créer une fonction Excel avec 'for' Résolu/Fermé

Question

Salut,

Je voudrais créer une fonction dans Excel 2003 (SP3) qui me permette de sommer des cellules d'une même couleur de fond.
J'ai déjà la fonctin qui teste la couleur d'une cellule : 
=ColorCell(#cellule)
qui renvoie le numéro de la couleur de fond de la cellule.
Ce que je voudrais faire, c'est en fait une boucle qui teste ça pour un grand nombre de cellules.
Je m'explique : je voudrais une fonction qui s'utilise comme ça 
SOMMECOULEUR( #plage_de_cellules_à_sommer ; #plage_de_cellules_à_tester ; #numéro_de_la_couleur )

C'est sûrement très facile, mais je ne connais absolument rien en VB, mon langage de "prédilection" étant le Java ^^

Je vous remercie d'avance pour votre aide !

Hydre · Answer

J'ai oublié de dire que les cellules à sommer ne contiennent que des nombres...

lermite222 · Answer

Bonjour,
La fonction à mettre dans un module général, par exemple Module1
Function SOMMECOULEUR(PLtest As Range, PLcoul As Range) As Double
Dim cel As Range
Dim T As Double
    On Error Resume Next
    For Each cel In PLtest
        If cel.Interior.ColorIndex = PLcoul.Interior.ColorIndex Then
            T = T + cel.Value
        End If
    Next cel
    SOMMECOULEUR = T
End Function

Et dans Excel, dans la cellule où tu veux le résultat..
=SOMMECOULEUR(A6:F21;C18)
1ére plage la plage de teste 2ém plage une celule qui a la bonne couleur.
A+
Edit, j'ai ajouter détection d'erreur parce que quand c'est une formule ça plantait.

Hydre · Answer

Merci pour ta réponse lermite222 !
Je vais tester ça tout de suite !

lermite222 · Answer

Bien compris,
ta plage de test prend plus qu'une colonne ?
genre A1:A200 ou bien A1:C200
et est-ce que les cellules à aditionner sont toujours sur la même colonne ?
Tu dit

Hydre · Answer

Ma plage de test prend une colonne, et ma plage à sommer est différente de ma plage de test, mais de même format (ie autant de cellules que ma plage de test).

Hydre_De_Lerne · Answer

Donc bien sûr les cellules à additionner sont sur la même colonne.

lermite222 · Answer

Function SOMMECOULEUR(PLtest As Range, PLcoul As Range) As Long
Dim cel As Range
Dim T As Double
    On Error Resume Next
    For Each cel In PLtest
        If cel.Interior.ColorIndex = PLcoul.Interior.ColorIndex Then
            T = T + cel.Offset(0, 2).Value
        End If
    Next cel
    SOMMECOULEUR = T
End Function
Faut bien sur adapter Offset à ta configuration
l'exemple:  plage de test = colonne B et plage des cellules à additionner en colonne D soit 2 colonne plus loin.
Tu dit