somme

Le
CBR
Bonjour à tous

Qui peut me dire s'il est possible de faire la somme de chiffres selon la
couleur de leur police ?

Sans macro serait top
Par macro si impossible autrement

Merci de m'éclairer

CBR
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5425201
Bonsoir,

Function SommeCouleurTexte(champ As Range, couleurTexte)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Font.ColorIndex = couleurTexte Then
If IsNumeric(c.Value) Then temp = temp + c.Value
End If
Next c
SommeCouleurTexte = temp
End Function

Pour maj touche F9 ou maj immédiate:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_SommeCoul eurTexte.xls

JB
http://boisgontierjacques.free.fr/



On 3 avr, 19:10, "CBR"
Bonjour à tous

Qui peut me dire s'il est possible de faire la somme de chiffres selon la
couleur de leur police ?

Sans macro serait top
Par macro si impossible autrement

Merci de m'éclairer

CBR


FdeCourt
Le #5425191
Salut,

Je ne crois pas que cela soit possible sans macro :

Fonction que tu peux trouver avec moultes autres sur le site de
Frederic Sigonneau :

Function SommeSelonCouleur(myCells As Range, Couleur As Long) As
Double
Dim Arr, I As Long, J As Integer
Application.Volatile True
Arr = myCells
For I = 1 To UBound(Arr, 1)
For J = 1 To UBound(Arr, 2)
If myCells(I, J).Interior.ColorIndex = Couleur Then
SommeSelonCouleur = SommeSelonCouleur + Arr(I, J)
End If
Next J
Next I
End Function


Cordialement,

F.


On 3 avr, 19:10, "CBR"
Bonjour à tous

Qui peut me dire s'il est possible de faire la somme de chiffres selon la
couleur de leur police ?

Sans macro serait top
Par macro si impossible autrement

Merci de m'éclairer

CBR


Philippe.R
Le #5425171
Bonsoir,
Pour pouvoir te passer de macro, il faudrait en quelque sorte inverser le
raisonnement ; j'imagine que les chiffres qui reçoivent une couleur de
police répondent à une condition particulière.
Dans un tel cas, tu disposes de la Mise En Forme Conditionnelle (MEFC) pour
attribuer la couleur et de la fonction =somme.si() ou encore de =sommeprod()
pour additionner ces valeurs selon la condition.
Sinon, via VBA :
http://www.excelabo.net/excel/fonctionsexemples.php#additioncouleur
à adapter pour remplacer la couleur de fond par celle de police
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"CBR" news:47f50f7d$0$20295$

Bonjour à tous

Qui peut me dire s'il est possible de faire la somme de chiffres selon la
couleur de leur police ?

Sans macro serait top
Par macro si impossible autrement

Merci de m'éclairer

CBR




Misange
Le #5425141
sans macro = dans 2007 seulement, tu tries en fonction de la couleur et
tu fais ta somme après :-)
(c'était juste pour rappeler que ça pour le coup c'est un truc sympa de
2007 : le tri par la couleur. mais ça fait pas les additions en prime et
pas le café non plus !

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour à tous

Qui peut me dire s'il est possible de faire la somme de chiffres selon la
couleur de leur police ?

Sans macro serait top
Par macro si impossible autrement

Merci de m'éclairer

CBR




CBR
Le #5424901
Ok merci pour toutes ces pistes.
Je vais examiner tout cela dès que j'aurai 5mn.

Bon week-end à tous

CBR
CBR
Le #5423901
Bonjour à tous

Merci JB , cette solution me va à merveille.

Bon Week-end tout le monde

CBR

_____________________________________________

"JB"
Bonsoir,

Function SommeCouleurTexte(champ As Range, couleurTexte)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Font.ColorIndex = couleurTexte Then
If IsNumeric(c.Value) Then temp = temp + c.Value
End If
Next c
SommeCouleurTexte = temp
End Function

Pour maj touche F9 ou maj immédiate:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_SommeCouleurTexte.xls

JB
http://boisgontierjacques.free.fr/



On 3 avr, 19:10, "CBR"
Bonjour à tous

Qui peut me dire s'il est possible de faire la somme de chiffres selon la
couleur de leur police ?

Sans macro serait top
Par macro si impossible autrement

Merci de m'éclairer

CBR


Publicité
Poster une réponse
Anonyme