Calculs en tenant compte des couleurs de fond
Résolu
Laeti3112
-
Laeti3112 Messages postés 14 Statut Membre -
Laeti3112 Messages postés 14 Statut Membre -
Bonjour,
Je souhaiterais effectuer le calcul suivant :
Additionner le montant des cellules avec un fond de couleur (jaune par exemple), avec le montant des cellules d'un autre fond de couleur (rouge par exemple) que si ces cellules à fond rouge contiennent un mot précis (mot étant sur la même ligne mais pas dans la même cellule).
Je dispose de la fonction pour additionner le contenu des cellules de fond de même couleur :
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Currency
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function
'Formule à insérer dans cellule
'=SommeSiCouleur($C$1:$C$34;3)
et Je dispose de la fonction pour calculer le nombre de cellules selon une couleur de fond avec un mot :
Function CptTxtEntraide(champ As Range)
Application.Volatile
Dim C, temp
For Each C In champ
If C.Value = "DIVERS" And C.Interior.Color = RGB(255, 0, 0) Then
temp = temp + 1
End If
Next C
CptTxtEntraide = temp
End Function
'Formule à insérer dans cellule
=CptTxtDivers(C7:C319)
Je suppose qu'il faille arriver à faire un mix des 2 pour ce que je veux faire....
Merci pour votre aide!
Cordialement
Je souhaiterais effectuer le calcul suivant :
Additionner le montant des cellules avec un fond de couleur (jaune par exemple), avec le montant des cellules d'un autre fond de couleur (rouge par exemple) que si ces cellules à fond rouge contiennent un mot précis (mot étant sur la même ligne mais pas dans la même cellule).
Je dispose de la fonction pour additionner le contenu des cellules de fond de même couleur :
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Currency
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function
'Formule à insérer dans cellule
'=SommeSiCouleur($C$1:$C$34;3)
et Je dispose de la fonction pour calculer le nombre de cellules selon une couleur de fond avec un mot :
Function CptTxtEntraide(champ As Range)
Application.Volatile
Dim C, temp
For Each C In champ
If C.Value = "DIVERS" And C.Interior.Color = RGB(255, 0, 0) Then
temp = temp + 1
End If
Next C
CptTxtEntraide = temp
End Function
'Formule à insérer dans cellule
=CptTxtDivers(C7:C319)
Je suppose qu'il faille arriver à faire un mix des 2 pour ce que je veux faire....
Merci pour votre aide!
Cordialement
7 réponses
-
Salut Le Pingou et merci pour le bébé
Le sujet n'est plus d'actualité, mais pour ne pas laisser la chose en rade
1. La fonction adaptée au fichierPublic Function SomSiCoulText(plage As Range, c As Long, t As String) As Single Dim li As Long, cel As Range, s As Single s = 0 Application.Volatile For li = 1 To plage.Rows.Count If plage.Cells(li, 1).Interior.ColorIndex = c And plage.Cells(li, 1).Value = t Then s = s + plage.Cells(li, 2).Value Next li SomSiCoulText = s End Function
2. L'appel depuis la feuille=somsicoultext($A$2:$B$14;43;"LA POSTE")+somsicoultext($A$2:$B$14;3;"LA POSTE")
Bonne journée à tous -
Oui mais si tu changes le cahier des charges, il va falloir faire un avenant au contrat !
https://www.cjoint.com/?3EAnKqDQgQK
L'appel depuis la feuille=SommeCouleurTexte(H2:H14;H5;J2:J14)+sommeCouleurTexte(H2:H14;H14;J2:J14)
Cdlmnt-
-
CCM81, j'aurai encore une question à te poser pour calculer le montant des devis la poste vert que s'ils ont un n° de commande en case G. cf fichier ci joint
https://www.cjoint.com/c/EEApcwVUkTY -
Avec les modèles tu aurais pu trouver toi même !
https://www.cjoint.com/?3EAqaPg86ut -
Trouver moi même, je pense pas... Je suis débutante de chez débutante... Avec un esprit logique qui confine le néant... Mais heureusement pour moi j'ai d'autres qualités ;)
Et pour répondre à ta question sur fichier xl, oui j'ai besoin des couleurs.
En tout cas merci 1 000 fois pour ton aide et ta collaboration! Tu es d'une efficacité redoutable. Ma seule incompréhension, pourquoi es tu encore en version 2003 alors que nous sommes en 2015? Si c'est pour des problèmes de budget, je dis pas...Mais sinon.
Cette discussion est définitivement close! Merci Merci Merci!!!
Vive ccm81!!!
-
-
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Question. tu veux additionner les sommes "la poste - verts" et les "la poste - rouges"
Si c'est ça, modifies cette ligneIf cel.Interior.ColorIndex = c And Application.WorksheetFunction.CountIf(Rows(li), t) > 0 Then s = s + cel.Value
puis dans ta feuille, tu fais unsommesicoultext(plage,vert,"la poste")+sommesicoultext(plage,rouge,"la poste")
Si ce n'est pas ça, peux tu mettre ton bout de fichier au format excel 2003 et surtout mettre le résultat attendu sur ton exemple
Cdlmnt-
Oui je veux additionner les sommes "la poste - verts" et les "la poste - rouges"
J'ai essayé ta solution, mais ça ne marche pas...
Je récapitule, j'ai écrit dans macro la fonction suivante :
Function SommeSiCouleurText(Plage As Range, NumeroDeCouleur%) As Currency
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If Cel.Interior.ColorIndex = C And Application.WorksheetFunction.CountIf(Rows(li), t) > 0 Then s = s + Cel.Value
End If
Next
End Function
et dans ma cellule
=SommeSiCouleurText(I7:I319,43,"LA POSTE")+SommeSiCouleurText(I7:I319,3,"LA POSTE")
-
-
Peux tu envoyer un bout de ton vrai fichier au format excel 2003 via cjoint.com
-
Bonjour,
Je ne dispose pas d'excel 2003 MAIS 2010.
Voici le lien pour mon fichier
http://cjoint.com/?0ExlrzFvbcI
Cordialement
