Additionner des cellules Jaunes de meme valeur Fermé

Question

Bonjour à tous 
Voilà la problématique que je rencontre :
J'ai une liste de devis sur  excel , avec en colonne G le département du client .
Une fois le devis validé , je rempli cette case en jaune ( manuellement) 
dont à la fin du mois , je me retrouve dans la colonne G , avec des devis sorti ( cases jaune) et d'autre non, avec des départements comme le 45 - 28 - 41 - etc...
Je souhaiterai additionner le nombre de cellule jaune portant le nombre 45 , le nombre de cellule jaune portant le nombre 28 etc ...

Cela fait quelques temps que je cherche et malheureusement , je ne trouve pas ce qu'il me faut.
Pour information je suis vraiment un débutant , merci d'appuyer vos propositions par une explication simple et précise SVP.
Merci d'avance
cordialement 
Xigus

Vaucluse · Answer

Bonjour

pour sommer des cellules selon la couleur, il faudra passer par VBA, ce qui n'est pas de mon ressort et risque de faire beaucoup pour un  débutant. Je pense qu'il serait plus simple de prévoir une colonne supplémentaire pour indiquer "payé" ou "sorti" ou autre

Il sera alors très simple de faire les sommes que vous souhaitez par département et si besoin, de formater automatiquement en jaune les lignes "payé"

A vous de voir

crdlmnt 
 
Errare humanum est, perseverare diabolicum

Mike-31 · Answer

Bonjour,

Je pense que le plus simple est de mettre à notre disposition un exemple de fichier anonymisé que l'on voit sa structure pour faire simple, tu peux joindre ton fichier avec ce lien

https://www.cjoint.com/ 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Xigus · Answer

http://cjoint.com/data3/3JxrcPHiJmV_essais_xigus.xlsx

Voici le lien du fichier
Merci  Mike -31

Cordialement
Xigus

Mike-31 · Answer

Re,

Bon deux possibilités, 
la première, comme le suggérait Vaucluse que je salue, tu crées une colonne avec un code par couleur exemple J pour jaune etc ... et on s'en sert pour coloriser automatiquement tes lignes 
ou deuxième solution il faut passer par un petit code VBA qu'il faudra coller dans les propriétés de ta feuille.

j'actualise ton fichier et te le retourne dans la soirée

Xigus · Answer

Merci Mike-31

Mike-31 · Answer

Re,

allez voyons si tu t'en sort en VBA, travaille sur un double de ton fichier ou sur la copie que tu as posté

fait un clic droit sur l'onglet de ta feuille, puis sur Visualiser le code cela va t'ouvrir le VBA
dans la grande feuille blanche colle ce code

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i, s As Variant
    s = 0
    On Error Resume Next
    If Not Intersect(Target, Range("I3:I10")) Is Nothing Then
    For i = 3 To 75
    If Cells(i, 7) = Target.Value And Cells(i, 5).Interior.ColorIndex = Target.Interior.ColorIndex Then
    s = s + Cells(i, 5).Value
    End If
    Next i
    Target(1, 2).Select
    Selection = s
    End If
End Sub


tu peux fermer le vba en cliquant sur la croix en haut à droite
cela va te ramener sur ta feuille Excel, saisie en I7 cellule jaune 45 normalement en J7 tu devrais avoir la somme de cellules jaunes dont le code en colonne G est 45 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Xigus · Answer

Mike - 31 Merci , je viens de suivre tes directives , et ce que tu me proposes fonctionne.
Néanmoins , je pense que je me suis mal expliqué.
En effet sur le tableau de droite , tu peux y voir les différents départements au total de 8
la ligne en dessous représente le nombre de devis que j'ai réalisé sur les différents départements
Le souhait serai d'avoir en deuxième ligne le nombre de devis sorti ( ceux qui sont en jaune) c'est à dire par exemple :dans le 18 il y en a 2 (les 11410.47 et le 11410.48)
le 28 il y en a 0 , le 36 il y en a 0 et ainsi de suite...
Ce n'est pas le montant que je souhaite , mais la quantité de devis sorti 
Ceux ci dit je vais en profiter par la suite pour mettre en application ton post ci dessus
Merci d'avance
Cordialement
Xigus

Mike-31 · Answer

Re,

pas de problème, remplace le code par celui ci en suivant la procédure du post précédent et reformate les cellule J3:J10 en format Standard

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i, s As Variant
    s = 0
    On Error Resume Next
    If Not Intersect(Target, Range("I3:I10")) Is Nothing Then
    For i = 3 To 75
    If Cells(i, 7) = Target.Value And Cells(i, 5) <> "" And Cells(i, 5).Interior.ColorIndex = Target.Interior.ColorIndex Then
    s = s + 1
    End If
    Next i
    Target(1, 2).Select
    Selection = s
    End If
End Sub

Xigus · Answer

Mike-31 
Quelle Rapidité et je t'en remercie 
Dans le principe c'est exactement ce que je désire
Maintenant avant de valider et classer en résolu
J'ai passé en jaune toutes les lignes comme si j'avais eu toute les commandes
en logique une fois tout stabiloté en jaune , la ligne en dessous des départements dans le tableau de droite devrait être égal au nombre trouvé par ta formule, puisque je rappel de tous les devis sont sorti
Et c'est la que le bas blesse c'est que je trouve un delta ???
Prenons par exemple le departement 18
au total j'ai fait 7 devis , si je les passe tous en jaune 
Avec ta formule cela ne m'en compte que 5 ??
As tu une explication ? voir mieux une solution :-)

D'avance Merci
Cordialement
Xigus

Maurice · Answer

Bonjour

Voila une autre macro avec un bouton

http://cjoint.com/?3JxvVSgocNi

A+

Maurice

Mike-31 · Answer

Re,

j'ai une explication, dans mon code j'ai demandé à Excel de compter les cellules en colonne G si elles contiennent une valeur, dans l'exemple la valeur 18, 
que colonne E contienne une valeur, et que la couleur soit identique à la cellule critère J7
donc effectivement il y a 7 cellules contenant la valeur 18 mais seulement 5 sont renseignées colonne E, E35 et E36 sont vides 

que veux tu les compter même si elles sont vides
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Additionner des cellules Jaunes de meme valeur

11 réponses

Discussions similaires