XL 2019 Somme.si.ens avec 1 critère couleur et 1 critère texte

Merlin258413 · 19 Février 2020

Bonjour à tous
je viens solliciter votre aide car je suis à la recherche d'une fonction je pense par VBA qui me permettrait de faire un somme.si.ens avec 1 critère couleur et un 2ème texte.
Si je reviens dans le concret j'ai plusieurs agences qui doivent réaliser un certain objectif de facturation mais les estimations que me remettent les commerciaux sont conditionnées (Problème de BL ou de commandes)

J'avais trouvé une fonction VBA permettant de faire simplement un somme.si couleur ci-dessous le code mais je ne sais pas comment intégrer l'agence

VB:

Public Function SomCoul(p As Range, c As Range)

Dim coul As Long, s, cel
Application.Volatile
coul = c.Interior.ColorIndex
s = 0
For Each c In p
  If c.Interior.ColorIndex = coul Then s = s + c.Value
Next c
SomCoul = s
End Function

Dans le fichier joint le vous indique le résultat attendu tableau A12:e17

En vous remerciant pour votre aide

Ikito · 20 Février 2020

Bonjour,

J'avais le cerveau déconnecté hier apparemment. Voici le fichier corrigé.
Pour information, dans les cellule de la feuille synthèse, les valeurs données par la formule correspondent à la somme de tout ce qu'il trouve.
S'il trouve pour toto en rouge : 50 et 10, alors il affichera 60.

Ikito · 19 Février 2020

Bonjour,

En supposant que ton critère est en A1 et est "Agence machin"
Après le Then, ton traitement, ici dans la variable s.

VB:

  If c.Interior.ColorIndex = coul And Cells(1,"A") = "Agence machin" Then s = Résultat

Merlin258413 · 19 Février 2020

Ikito à dit:
Bonjour,

En supposant que ton critère est en A1 et est "Agence machin"
Après le Then, ton traitement, ici dans la variable s.

VB:

If c.Interior.ColorIndex = coul And Cells(1,"A") = "Agence machin" Then s = Résultat

Bonjour je vous remercie mais je ne sais pas comment faire cela donnerai quoi sur le fichier Excel svp ?

Ikito · 19 Février 2020

VBA Modifié :

VB:

Public Function SomCoul(p As Range, c As Range, val As String)

Dim coul As Long, s, cel
Application.Volatile
coul = c.Interior.ColorIndex
s = 0
For Each c In p
  If c.Interior.ColorIndex = coul And val Like Cells(c.Row, (c.Column) - 2) Then s = s + c.Value
Next c
SomCoul = s
End Function

Utilisation :
Dans une cellule : =SomCoul(p;c;val)
Avec :
p : La matrice de recherche
c : La couleur à chercher
val : La valeur à chercher (ici l'agence)

Merlin258413 · 19 Février 2020

Un grand merci Ikito
maintenant si je corse un peu le problème j'ai pris la même structure que mon véritable fichier de travail,c'est à dire que ce calcul s'effectue dans un onglet Synthèse et les données dans un fichier données. Si je modifie p :la matrice de recherche je n'ai rien qui remonte ?

Petites questions pour apprendre
1- A quoi fait référence le -2 de Cells(c.Row, (c.Column) - 2)
2- pourquoi la matrice de recherche n'intègre pas C2:C6 n'intègre pas les agences A2:C6
Comment Excel arrive t'il à faire le lien entre les données et les résultats

Merci beaucoup

Ikito · 19 Février 2020

Le -2 permet de faire le lien entre les données et les résultats. Sans le -2 on pointe sur la couleur et la valeur numérique, avec le -2, on pointe sur le nom de l'agence.

Le -2 à modifier par -4 avec la structure de ton tableau dans "DONNEES". Sans le -4 on pointe sur E (5eme colonne) à avec le -4 on pointe sur A (5-4 = 1ere colonne), donc le nom des agences

Merlin258413 · 19 Février 2020

Ok Merci dans monpost précédent test V2 etcompte tenu de la structure réel de mon fichier j'ai remplacé le 2 par 4 et la formule de vient =SomCoul('DETAIL PREVISIONS'!$E$9:$E$5000;J$2;$A3)
Pouvez-vous me dire pourquoi cela ne fonctionne pas ?
Pourtant la colonne Agence est bien 4 colonne en amont de l'estimation dans l'onglet DONNEES

VB:

Public Function SomCoul(p As Range, c As Range, val As String)
Dim coul As Long, s, cel
Application.Volatile
coul = c.Interior.ColorIndex
s = 0
For Each c In p
If c.Interior.ColorIndex = coul And val Like Cells(c.Row, (c.Column) - 4) Then s = s + c.Value
Next c
SomCoul = s
End Function

Ikito · 19 Février 2020

Avec correction

Merlin258413 · 19 Février 2020

Un grand merci cela fonctionne je ne sais pas pourquoi il fallait juste que je ferme mon fichier et je tape une valeur dans données
Je pense que cela vient de la notion application volatile
C'est super

Merlin258413 · 19 Février 2020

C'est encore moi je crois que cette fontion me rend chèvre mais j'en ai tellement besoin
Je ne sais pas pourquoi mais la somme ne s'effectue pas correctement par exemple cellule en rouge
J9 ce montant devrait remonter sur l'agence AKFARB et J12 aussi
De plus dans détail j'ai des sommes qui ne remontent pas

De plus dès que je fais une sauvegarde ou une modification sur Synthèse je dois faire un aller retour sur DETAIL valider une cellule pour voir apparaître mes résultats pour certains faux

Ikito · 20 Février 2020

Bonjour,

J'avais le cerveau déconnecté hier apparemment. Voici le fichier corrigé.
Pour information, dans les cellule de la feuille synthèse, les valeurs données par la formule correspondent à la somme de tout ce qu'il trouve.
S'il trouve pour toto en rouge : 50 et 10, alors il affichera 60.

Merlin258413 · 20 Février 2020

Bonjour et Bravo cela fonctionne merci

XL 2019 Somme.si.ens avec 1 critère couleur et 1 critère texte

Merlin258413

XLDnaute Occasionnel

Pièces jointes

Ikito

Ikito

XLDnaute Occasionnel

Merlin258413

XLDnaute Occasionnel

Ikito

XLDnaute Occasionnel

Pièces jointes

Merlin258413

XLDnaute Occasionnel

Pièces jointes

Ikito

XLDnaute Occasionnel

Merlin258413

XLDnaute Occasionnel

Ikito

XLDnaute Occasionnel

Pièces jointes

Merlin258413

XLDnaute Occasionnel

Merlin258413

XLDnaute Occasionnel

Pièces jointes

Ikito

XLDnaute Occasionnel

Pièces jointes

Merlin258413

XLDnaute Occasionnel

Discussions similaires