calcul en fonction du texte et de la couleur de la cellule
16 réponses
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
merci cela fonctionne j'ai mis cette formule =SOMMEPROD((couleurfond($K$2:$K$32)D)*($I$2:$I$32="chat")*4)+SOMME PROD((couleurfond($K$2:$K$32)D)*($I$2:$I$32<>"chat")*8,25)
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 -
Je ne penses pas.
Cette fonction perso matricielle peut être combinée avec d'autres
conditions, par ex:
On 20 fév, 18:46, andrea <andrea.par...@laposte.net> wrote:
merci cela fonctionne
j'ai mis cette formule
=SOMMEPROD((couleurfond($K$2:$K$32)=44)*($I$2:$I$32="chat")*4)+SOMME PROD((couleurfond($K$2:$K$32)=44)*($I$2:$I$32<>"chat")*8,25)
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 <andrea.par...@laposte.net> 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 -
merci cela fonctionne j'ai mis cette formule =SOMMEPROD((couleurfond($K$2:$K$32)D)*($I$2:$I$32="chat")*4)+SOMME PROD((couleurfond($K$2:$K$32)D)*($I$2:$I$32<>"chat")*8,25)
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 -
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
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
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
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 !
;-)
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
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 !
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
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" <misange@devinez-ou.net> a écrit dans le message de news:
uEg7hLAdIHA.3788@TK2MSFTNGP02.phx.gbl...
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
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