additionner les valeurs format condtionnel

Celeda

XLDnaute Barbatruc

• 10 Février 2008

• #2

Re : additionner les valeurs format condtionnel

Bonjour,

couleur d'un format conditionnel

Cliquez pour agrandir...

: 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.

 

Vote positif 0 Vote négatif

M

myriade

Guest

• 10 Février 2008

• #3

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.

 

Pièces jointes

• ClasseurSommeCouleur.xls

  29.5 KB · Affichages: 54

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 10 Février 2008

• #4

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.

 

Vote positif 0 Vote négatif

M

myriade

Guest

• 10 Février 2008

• #5

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

 

Vote positif 0 Vote négatif