Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

calcul en fonction du texte et de la couleur de la cellule

16 réponses
Avatar
andrea
Bonjour

j'ai récupéré sur internet 2 fonctions :
===========================================
Function BgColorcountif(SearchArea As Object, BgColor As Integer) As Integer
For Each Cell In SearchArea
BgColorcountif = BgColorcountif + Abs(Cell.Interior.ColorIndex = BgColor)
Next Cell
End Function


Function BgColor(CkCell As Object)
BgColor = Abs(CkCell.Interior.ColorIndex)
End Function
==========================================

qui me permettent avec la formule suivante :
=BgColorcountif(E2:E32;Bgcolor(A39))*7

de calculer en fonction de la couleur de la cellule
cela fonctionne très bien et s'est super

mais en plus j'aimerais par exemple calculer aussi en fonction du texte
contenu dans la cellule

par exemple j'ai 3 cellules rouge qui contiennent le mot chat je
multiplie 3 par 7
mais si dans le lot j'ai 2 cellules rouges qui contiennent le mot chien
j'aimerais multiplier par 12

ce qui donnerais comme calcul : 3*7 + 2*12


est-ce possible et comment faire

merci d'avance

6 réponses

1 2
Avatar
isabelle
c'est en plein ça Daniel avec Dadif même sur excel 2007 il faut repasser ;-)
isabelle

Bonjour.
Le jour où l'on aura de l'aide sur DATEDIF (pas encore dans 2007, bien que
la fonction soit intégrée)
;-(((

la seule chose qu'excel ne peut pas faire c'est le ménage et le repassage






Avatar
JB
Je ne penses pas.
Cette fonction perso matricielle peut être combinée avec d'autres
conditions, par ex:

=SOMMEPROD((couleurfond(B2:B10)=3)*((B2:B10="chien")+(B2:B10="chat") ))

JB

On 20 fév, 18:46, andrea wrote:
merci cela fonctionne
j'ai mis cette formule
=SOMMEPROD((couleurfond($K$2:$K$32)D)*($I$2:$I$32="chat")*4)+SOMME PROD((c­ouleurfond($K$2:$K$32)D)*($I$2:$I$32<>"chat")*8,25)

peut on la simplifier ?

merci d'avance




Bonjour,

Fonction matricielle:

=SOMMEPROD((couleurfond(B2:B10)=3)*(B2:B10="chat"))

Function couleurFond(champ As Range)
  Application.Volatile
  Dim temp()
  ReDim temp(1 To champ.Count)
  For i = 1 To champ.Count
    temp(i) = champ(i).Interior.ColorIndex
  Next i
  couleurFond = Application.Transpose(temp)
End Function

http://cjoint.com/?cusgSBRbdX

JB
http://boisgontierjacques.free.fr

On 20 fév, 17:01, andrea wrote:
Bonjour

j'ai récupéré sur internet 2 fonctions :
======================= ====================
Function BgColorcountif(SearchArea As Object, BgColor As Integer) As In teger
For Each Cell In SearchArea
BgColorcountif = BgColorcountif + Abs(Cell.Interior.ColorIndex = Bg Color)
Next Cell
End Function

Function BgColor(CkCell As Object)
BgColor = Abs(CkCell.Interior.ColorIndex)
End Function
======================= ===================

qui me permettent avec la formule suivante :
=BgColorcountif(E2:E32;Bgcolor(A39))*7

de calculer en fonction de la couleur de la cellule
cela fonctionne très bien et s'est super

mais en plus j'aimerais par exemple calculer aussi en fonction du texte
contenu dans la cellule

par exemple j'ai 3 cellules rouge  qui contiennent le mot chat  je
multiplie  3  par 7
mais si dans le lot j'ai 2 cellules rouges qui contiennent le mot chien
j'aimerais multiplier par 12

ce qui donnerais comme calcul :  3*7  + 2*12

est-ce possible et comment faire

merci d'avance- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Avatar
andrea
merci

c'est génial

tout fonctionne comme souhaité

je vous embrasse tous bien fort

bizzzzzzzzzzzzzzzz
Avatar
Misange
la seule chose qu'excel ne peut pas faire c'est le ménage et le repassage


nous en sommes pas loin andrea, surtout avec l'aide de ChrisV ;-)

isabelle( qui cours au abris )
Non non reste surtout il serait capable de te suivre aux abris pour

échapper à la planche !
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net


Avatar
isabelle
;-)
isabelle

la seule chose qu'excel ne peut pas faire c'est le ménage et le
repassage


nous en sommes pas loin andrea, surtout avec l'aide de ChrisV ;-)

isabelle( qui cours au abris )
Non non reste surtout il serait capable de te suivre aux abris pour

échapper à la planche !




Avatar
ChrisV
Bon,... c'est fini les nanas ?!

Pfff... si elles s'y mettent à plusieurs maintenant...
on n'est plus en sureté nul part mon bon JP...

;-*

ChrisV


"Misange" a écrit dans le message de news:

la seule chose qu'excel ne peut pas faire c'est le ménage et le
repassage


nous en sommes pas loin andrea, surtout avec l'aide de ChrisV ;-)

isabelle( qui cours au abris )
Non non reste surtout il serait capable de te suivre aux abris pour

échapper à la planche !
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net




1 2