si ma cellule est "colorée" alors = 1

[kanaramel]

Bonjour à toutes et tous,

Alors voila j'ai un tableau excel bien sur et je souhaiterais savoir s'il existe une formule pour que sa ne me comtpe que mes cellules qui sont de couleurs et non les autres.

Merci encore à tous ceux qui prennent la peine de repondre!!!

Sincerement,



@ +

 

[Staple1600]

Re : si ma cellule est "colorée" alors = 1

Bonsoir




Utilises le moteur de recherche du forum

Tu trouveras des exemples traitant de ce sujet.

EDITION:

Exemple: ce fichier de Wilfried_42
Lien supprimé

 

[pascal21]

Re : si ma cellule est "colorée" alors = 1

bonsoir kanaramel , stapple
trouvé sur le net
comptabilise les cellules rouges
à adapter

Sub TotalisationCouleurRouge()
    For Each cel In Selection
    If cel.Interior.ColorIndex = 3 Then SomRouge = SomRouge + cel
    Next cel
    MsgBox SomRouge
End Sub

bonne soirée

 

[BOISGONTIER]

Re : si ma cellule est "colorée" alors = 1

Bonjour,

Dans un module (AlT+F11 puis insertion/Module)

Function CompteCouleurFond(champ As Range)
   Application.Volatile
   For Each c In champ
     If c.Interior.ColorIndex <> xlNone Then temp = temp + 1
   Next c
   CompteCouleurFond = temp
End Function

Pour Maj:
F9 ou pinceau ou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calculate
End Sub

JB
Formation Excel VBA JB