additionner des cellules par type de couleur

Re : additionner des cellules par type de couleur

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

Re : additionner des cellules par type de couleur

Bonjour

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


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

Cordialement

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

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