Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
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
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" wrote:
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
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" <nospam_...@free.fr> wrote:
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
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" wrote:
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
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" a écrit dans le message de 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
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" <nospam_cbr@free.fr> a écrit dans le message de
news:47f50f7d$0$20295$426a74cc@news.free.fr...
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
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" a écrit dans le message de 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
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
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
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
Ok merci pour toutes ces pistes. Je vais examiner tout cela dès que j'aurai 5mn.
Bon week-end à tous
CBR
Ok merci pour toutes ces pistes.
Je vais examiner tout cela dès que j'aurai 5mn.
Ok merci pour toutes ces pistes. Je vais examiner tout cela dès que j'aurai 5mn.
Bon week-end à tous
CBR
CBR
Bonjour à tous
Merci JB , cette solution me va à merveille.
Bon Week-end tout le monde
CBR
_____________________________________________
"JB" a écrit dans le message de news:
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
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
Bonjour à tous
Merci JB , cette solution me va à merveille.
Bon Week-end tout le monde
CBR
_____________________________________________
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
309ef764-93b3-4cf1-a002-5bed1e756ede@s13g2000prd.googlegroups.com...
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
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