Fonction ColorCountIF

Bonjour,

J'avais une formule qui permettait jusqu'à maintenant de comptabiliser les cellules qui étaient en Jaune, en bleu ...

Cette a toujours bien marché et m'avait éviter de passer en VBA. Mais là, je ne sais ce que j'ai touché ou fait , impossible de la refaire fonctionner ? Qq1 pourrait-il m'aider svp ?

J'ai eu beau chercher dans le forum mais là, je reconnais que je cale ...

Je mets le fichier simplifié en PJ.

Merci d'avance,

frac a écrit :

Cette a toujours bien marché et m'avait éviter de passer en VBA

Voilà qui est curieux.

Je n'ai jamais vu de fonction composée avec des mots anglais sur une feuille de calcul d'une version française de Excel.

Sur une version anglaise une telle fonction existe peut-être mais j'en doute : il y aurait certainement son homologue française. Or, ça non plus, je ne connais pas.

Mais je ne sais pas tout...

Bye !

Bonsoir, Salut gmb,

D'après ce que tu me dis, il faudra réactiver dans Option la macro complémentaire "CountifColor". C'est un module complémentaire .xlam qui te manque. Si ça a marché jusqu'à maintenant, il n'y a que comme ça tu peux le réactiver. En tout cas ce n'est pas une fonction venant d'application Excel.

Bonsoir à tous,

Une petite piste avec la formule lire.cellule

Ca peut peut-être faire tes affaires.

Qu'en penses-tu ?

Cordialement,

Vbabeginner

Bonjour,

ça doit être ceci

Function Colorcountif(InputRange As Range, ColorRange As Range) As Long
Dim cl As Range, TempCount As Long, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempCount = 0
For Each cl In InputRange.Cells
  If cl.Interior.ColorIndex = ColorIndex Then TempCount = TempCount + 1
Next cl
Set cl = Nothing
Colorcountif = TempCount
End Function

et la somme:

Function SumByColor(InputRange As Range, ColorRange As Range) As Double
Dim cl As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next      ' ignore cells without values
For Each cl In InputRange.Cells
  If cl.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + cl.Value
Next cl
On Error GoTo 0
Set cl = Nothing
SumByColor = TempSum
End Function

Bonjour,

Si j'en crois le fil ci-dessous tu utilisais bien VBA... Avec une création de fonction... mais c'est bien du VBA...

https://forum.excel-pratique.com/excel/fonction-colorcountif-t71875.html

Je pense que tu as de quoi faire avec les propositions ci-dessus.

Bonne journée,

Cordialement,

Vbabeginner

Super, ça fonctionne. Merci à vous !