somme des cellules colorées

[LNHDVFR]

Bonjour à tous,
Je suis plus que débutante en VBA et je souhaite mettre dans une cellule définit la somme des cellules colorées par exemple en vert.
J'avoue devoir avoir une aide pas à pas.
Merci de vos réponses.

[florianne]

Tu crées un module 1 et tu places la procédure suivante:

Code :

1
2
3
4
5
6
7
 
Public Sub rempliss()
Dim i As Integer
For i = 1 To 30
Cells(i, 12).Interior.ColorIndex = i
Next i
End Sub

Tu l’exécutes
Cela va afficher 30 cellules de couleurs différentes dans la 12eme colonne.

Tu crées un module 2 et tu crées la fonction suivante:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function coule(Cible As Range, k As Range) As Long
 
Dim o As Range
Dim som As Double
Dim couleur As Integer
 
couleur = k.Interior.ColorIndex
som = 0
Application.Volatile
 
For Each o In Cible.Cells
If o.Interior.ColorIndex = couleur Then som = som + o.Value
Next o
coule = som
End Function

Ensuite dans la cellule où tu veux voir le résultat s'afficher tu tapes coule(range1;range2)

range1 : tu sélectionnes la zone concernée par l'addition
range 2 : tu sélectionnes la cellule en colonne 12 ou s'est affichée la couleur que tu désires