Additionner des cellules Jaunes de meme valeur

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

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.

http://cjoint.com/data3/3JxrcPHiJmV_essais_xigus.xlsx

Voici le lien du fichier
Merci Mike -31

Cordialement
Xigus

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

Merci Mike-31

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.

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

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

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

Bonjour

Voila une autre macro avec un bouton

http://cjoint.com/?3JxvVSgocNi

A+

Maurice

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.