additionner des cellules par type de couleur

[altinea]

bonjour, j'aimerai savoir comment je peux additionner des cellules d'un colonne ou ligne juste par la couleur de la cellule

ex

colonne 1 - 4 cellules bleu = 4


merci de votre aide

 

[excalibur]

Re : additionner des cellules par type de couleur

bonjour altinea le forum un ex si tu peus t en inspirer salutations

 

[Jacques87]

Re : additionner des cellules par type de couleur

Bonjour

Si j'ai bien compris, voici une macro qui devrait répondre à ta question

n = 0
For I = 1 to Range("A65536").End(XlUp).Row
If Range("A" & I).Interior.Color = 5
Then n = n + 1
End If
Next I
 
MsgBox("il y a " & n & " cellules bleues dans la colonne A")

Attention la valeur 5 correspond à un certain bleu qui ne sera peut être pas celui que tu auras choisi

Cordialement

 

[excalibur]

Re : additionner des cellules par type de couleur

bonjour altinea le forum un ex couleur sur colonne a
Option Explicit
Sub valeur1()
Dim s, c, nb, i As Byte
Application.ScreenUpdating = False
For i = 0 To 56
nb = 0
s = 0
For Each c In Range("A1", Range("A65536").End(xlUp))
If c.Interior.ColorIndex = i Then
s = s + c.Value
nb = nb + 1
End If
Next c
If nb <> 0 Then
Range("b57").End(xlUp).Offset(1, 0).Value = nb
Range("c57").End(xlUp).Offset(1, 0).Interior.ColorIndex = i
Range("c57").End(xlUp).Offset(1, 0).Value = i
Range("d57").End(xlUp).Offset(1, 0).Value = s
End If
Next i
End Sub'salutations
bonjour jacques pas rafraichi

 

[wilfried_42]

Re : additionner des cellules par type de couleur

bonsoir à tous

il y a un grand nombre de couleurs , j'ai meme rescencé des couleurs identiques avec un index different

dim couleur(0 to 60)
for each cel in range(plage)
if cel.interior.colorindex = -4142 then ' pas de couleur
couleur(0) = couleur(0)+1
else
couleur(cel.interior.colorindex+1) = couleur(cel.interior.colorindex+1) +1
end if
next

ce bout de programme permet de compter le nombre de chacune des couleurs d'une plage