Calculs en tenant compte des couleurs de fond
Résolu/Fermé
Laeti3112
-
22 mai 2015 à 15:05
Laeti3112 Messages postés 14 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 15 juin 2015 - 26 mai 2015 à 17:08
Laeti3112 Messages postés 14 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 15 juin 2015 - 26 mai 2015 à 17:08
A voir également:
- Calculs en tenant compte des couleurs de fond
- Supprimer compte instagram - Guide
- Compte facebook piraté - Guide
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Compte instagram piraté - Guide
7 réponses
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
25 mai 2015 à 14:54
25 mai 2015 à 14:54
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 fichier
2. L'appel depuis la feuille
Bonne journée à tous
Le sujet n'est plus d'actualité, mais pour ne pas laisser la chose en rade
1. La fonction adaptée au fichier
Public 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
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié par ccm81 le 26/05/2015 à 13:39
Modifié par ccm81 le 26/05/2015 à 13:39
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
Cdlmnt
https://www.cjoint.com/?3EAnKqDQgQK
L'appel depuis la feuille
=SommeCouleurTexte(H2:H14;H5;J2:J14)+sommeCouleurTexte(H2:H14;H14;J2:J14)
Cdlmnt
Laeti3112
Messages postés
14
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
15 juin 2015
26 mai 2015 à 14:44
26 mai 2015 à 14:44
Merci ccm81, la formule fonctionne!!!
Bon après midi ;)
Bon après midi ;)
Laeti3112
Messages postés
14
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
15 juin 2015
26 mai 2015 à 15:05
26 mai 2015 à 15:05
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
https://www.cjoint.com/c/EEApcwVUkTY
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
26 mai 2015 à 16:01
26 mai 2015 à 16:01
Avec les modèles tu aurais pu trouver toi même !
https://www.cjoint.com/?3EAqaPg86ut
https://www.cjoint.com/?3EAqaPg86ut
Laeti3112
Messages postés
14
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
15 juin 2015
26 mai 2015 à 17:08
26 mai 2015 à 17:08
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!!!
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!!!
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
22 mai 2015 à 15:38
22 mai 2015 à 15:38
Bonjour
Je ne sais pas si j'ai tout compris
https://www.cjoint.com/?3EwpMthezI2
Cdlmnt
Je ne sais pas si j'ai tout compris
https://www.cjoint.com/?3EwpMthezI2
Cdlmnt
Laeti3112
Messages postés
14
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
15 juin 2015
22 mai 2015 à 16:13
22 mai 2015 à 16:13
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié par ccm81 le 22/05/2015 à 16:39
Modifié par ccm81 le 22/05/2015 à 16:39
Question. tu veux additionner les sommes "la poste - verts" et les "la poste - rouges"
Si c'est ça, modifies cette ligne
puis dans ta feuille, tu fais un
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
Si c'est ça, modifies cette ligne
If cel.Interior.ColorIndex = c And Application.WorksheetFunction.CountIf(Rows(li), t) > 0 Then s = s + cel.Value
puis dans ta feuille, tu fais un
sommesicoultext(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
Laeti3112
Messages postés
14
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
15 juin 2015
22 mai 2015 à 18:49
22 mai 2015 à 18:49
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")
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")
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié par ccm81 le 22/05/2015 à 18:56
Modifié par ccm81 le 22/05/2015 à 18:56
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
Je ne dispose pas d'excel 2003 MAIS 2010.
Voici le lien pour mon fichier
http://cjoint.com/?0ExlrzFvbcI
Cordialement
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
23 mai 2015 à 11:22
23 mai 2015 à 11:22
Tu fais enregistrer sous/Type et tu choisis exel 2003 .xls
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié par ccm81 le 23/05/2015 à 11:32
Modifié par ccm81 le 23/05/2015 à 11:32
Et ???
Au passage, tu devrais t'inscrire sur ce site, c'est gratuit et ça permet de transformer les adresse de site en liens hypertexte (plus besoin de transporter l'adresse dans la fenêtre des adresses)
Au passage, tu devrais t'inscrire sur ce site, c'est gratuit et ça permet de transformer les adresse de site en liens hypertexte (plus besoin de transporter l'adresse dans la fenêtre des adresses)
26 mai 2015 à 12:48
J'ai essayé ta nouvelle formule par curiosité, et elle ne marche pas. Elle me retourne un résultat =70 800 euros dans ma cellule total au lieu des 125 500 euros escomptés...
26 mai 2015 à 13:22
Cependant si j'ajoute des colonnes entre la colonne client et la colonne des totaux ta formule ne marche plus....
26 mai 2015 à 13:17
En voilà deux pour le prix d'une ;-)
https://www.cjoint.com/?3EAnqZWigkR
Cdlmnt