Additioner des cellules colorées en VBA

Question

Bonjour, 

J'ai un tableau excel où je veux additionner des cellules situés dans une même colonne. 
Le tableau se remplit dynamiquement. dans la colonne ou je dois additioner les chiffres, je dois en premier temps aditionner les cellules de couleurs bleu puis en deuxieme temps les cellules de couleur jaune. ça doit etre extremement facile mais je sais pas faire avec du code VBA. 
Merci de votre aide !
PS: le tableau se remplit dynamiquement donc la position des cellules colorés n'est pas connues. 

Configuration: Windows 7 / Safari 537.1

tuxboy · Answer

Comme tu dis : ça doit etre extremement facile 


Function SommeCoul(myCells As Range, Couleur As Long) As Double 
Dim A, I As Long, J As Integer 
    Application.Volatile True 
    A = myCells 
    For I = 1 To UBound(A, 1) 
        For J = 1 To UBound(A, 2) 
            If myCells(I, J).Interior.ColorIndex = Couleur Then 
                SommeSelonCouleur = SommeSelonCouleur + A(I, J) 
            End If 
        Next J 
    Next I 
End Function

Et si tu veux passer la Couleur par une fonction :
Function Couleur(Cellule As Object)
    Couleur = Abs(Cellule.Interior.ColorIndex)
End Function

C'est le petit plus, ça doit être suprêmement facile à utiliser.

Additioner des cellules colorées en VBA

1 réponse

Votre réponse

Discussions similaires