additionner les valeurs format condtionnel

[myriade]

Bonjour,
Je voulais savoir s'il est possible d'additionner les valeurs de différentes cellules dans un tableau, ceci en fonction de la couleur d'un format conditionnel ?
Si oui, avez-vous un exemple ?
Merci à tous🙄

 

[Celeda]

Re : additionner les valeurs format condtionnel

Bonjour,

couleur d'un format conditionnel

: est-ce la font qui est en couleur ou la cellule elle-même ?
à préciser, svp.

Vite fait, sI c'est la font, une macro de mdf (mais il en existe plein d'autres)
à placer dans un module (ALt F11)

Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
' Date : 06/11/2005
'---------------------------------------------------------------------------------------
Function SomCoul() As Currency
'Somme des cellules ayant la même couleur de police que la cellule appelante
'myDearFriend! 06/11/05
Dim Plage As Range, Cellule As Range, PlageCoul As Range, Target As Range
Dim Coul As Integer
Application.Volatile
Set Target = Application.Caller
Coul = Target.Font.ColorIndex
With Application.Caller.Parent
Set Plage = .UsedRange.Cells
For Each Cellule In Plage
If Cellule.Address <> Target.Address Then
If Cellule.Font.ColorIndex = Coul Then
If PlageCoul Is Nothing Then Set PlageCoul = Cellule
Set PlageCoul = Union(PlageCoul, Cellule)
End If
End If
Next Cellule
End With
If Not PlageCoul Is Nothing Then
SomCoul = Application.WorksheetFunction.Sum(PlageCoul)
Else
SomCoul = 0
End If
End Function

SI c'est la cellule, faire une rechercher plus poussée ou bien attendre une macro car je n'en ai pas sous la main.

 

[myriade]

Re : additionner les valeurs format condtionnel

Bonjour,
Merci pour la rapide, mais j'ai essayé et cela ne fonctionne pas. J'ai mis le code dans un module, mais...rien à faire
Je joins le fichier excel, j'ai peut-être fait une erreur.

 

[wilfried_42]

Re : additionner les valeurs format condtionnel

Bonjour

Les couleurs provenant d'une MFC n'affectent en aucun cas les cellules, les MFC fonctionnent comme un papier peint. Les proprietes des cellules comme ColorIndex ou autres ne sont pas concernées.

Regardant tes MFC, le plus simple est de Faire un Somme.si avec le meme critere de selection.

 

[myriade]

Re : additionner les valeurs format condtionnel

Hello,
Merci beaucoup, je ne suis pas championne d'excel et la fonction somme.si convient parfaitement.
Voir comme on peut se perdre à chercher dans le mauvais sens ....
Bonne soirée et encore merci