Afficher une Valeur selon la couleur

[Sim64]

Bonjour,

Alors voici mon problème.
Sur le fichier joint, on peut voir 2 colonnes, une avec les départements (FR94, FR92....) et une autre colonne avec une valeur. J'aimerais savoir si il est possible d'afficher la valeur dans une 3ème colonne (à coté donc) la valeur en fonction de la couleur du département.
Par exemple ici, le FR94 est en vert, est-il possible d'afficher toutes les valeurs des départements en vert uniquement?

Merci d'avance,

Cordialement, Sim

 

[BOISGONTIER]

Re : Afficher une Valeur selon la couleur

bonjour,

http://boisgontierjacques.free.fr/fichiers/Matriciel/MatListeCoul.xls

JB

 

[JHA]

Re : Afficher une Valeur selon la couleur

Bonjour à tous,

A essayer en "E5" puis tirer vers le bas

=SOMMEPROD((DROITE($C$5:$C$2760;2)=DROITE($C5;2))*($D$5:$D$2760))

ou

=SI(SOMMEPROD(N($C$5:$C5=$C5))=1;SOMMEPROD((DROITE($C$5:$C$2760;2)=DROITE($C5;2))*($D$5:$D$2760));"")

JHA

 

[Sim64]

Re : Afficher une Valeur selon la couleur

Merci beaucoup de cette rapide rapide est qui est excellente.

Merci encore et bon dimanche à toi 😉

 

[Robert]

Re : Afficher une Valeur selon la couleur

Bonjour le fil, bonjour le forum,

Une proposition VBA avec la macro événementielle ci-dessous qui réagit au double-clic dans la colonne C :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim dl As Integer 'déclare la variable dl (dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim coul As XlColorIndex 'déclare la variable coul (COULeur)
Dim tot As Long 'déclare la variable tot (TOTal)

With Sheets("Sud-Est") 'prend en compte l'onglet "Sud-Est"
    dl = .Cells(Application.Rows.Count, 3).End(xlUp).Row 'définit la dernière ligne dl
    Set pl = .Range("C5:C" & dl) 'définit la plage pl
End With 'fin de la prose en compte de l'onglet "Sud-Est"
'si le double-clis a lieu ailleurs que dans la plage pl, sort de la procédure
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True 'évite le mode édition lié au double-clic
coul = Target.Interior.ColorIndex 'définit la couleur coul
For Each cel In pl 'boucle sur toutes les cellule cel de la plage pl
    'si la couleur de la cellule est identique à coul, redéfinit le total tot
    If cel.Interior.ColorIndex = coul Then tot = tot + cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
Target.Offset(0, 2).Value = tot 'place le total tot dans la colonne E
End Sub