Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Somme de cellules selon couleur ??

Somme de cellules selon couleur ??

3 réponses
Avatar
Tony
Bonjour à tous

Voila, j'aimerai que la somme de plusieurs cellule dans une plage (B4:AC49)
se fasse selon la couleur du texte.
J'ai trouvé sur un site quelques chose qui s'y rapprochait mais c'etait
selon la couleur de la cellule, alors que moi c'est la couleur du texte qui
m'importe.

Voici ce que j'ai trouvé :

Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + cell.value
Next
SomCool = cvSomme
End Function

Ensuite, cette formule a mettre dans une feuille :
=SomCool(B4:AC49;"rouge")


Ca fonctionne tres bien. Mais comment faire pour que ca prenne en compte la
couleur du text et non la couleur du fond ?????
J'apprends tout doucement le VBA et .................. j'ai mal a la tete
;o)
Merci pour votre aide precieuse !

Tony
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
j
essaie de remplacer cell.Interior.ColorIndex par cell.Font.ColorIndex dans
la macro


http://jacxl.free.fr/




"Tony" a écrit dans le message de news:
#VvwH#$
Bonjour à tous

Voila, j'aimerai que la somme de plusieurs cellule dans une plage
(B4:AC49)

se fasse selon la couleur du texte.
J'ai trouvé sur un site quelques chose qui s'y rapprochait mais c'etait
selon la couleur de la cellule, alors que moi c'est la couleur du texte
qui

m'importe.

Voici ce que j'ai trouvé :

Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + cell.value
Next
SomCool = cvSomme
End Function

Ensuite, cette formule a mettre dans une feuille :
=SomCool(B4:AC49;"rouge")


Ca fonctionne tres bien. Mais comment faire pour que ca prenne en compte
la

couleur du text et non la couleur du fond ?????
J'apprends tout doucement le VBA et .................. j'ai mal a la tete
;o)
Merci pour votre aide precieuse !

Tony




Avatar
Tony
Ca parait evident maintenant. En tout cas ca fonctionne tres bien !
Merci beaucoup :o)

"" a écrit dans le message news:

essaie de remplacer cell.Interior.ColorIndex par cell.Font.ColorIndex
dans

la macro


http://jacxl.free.fr/




"Tony" a écrit dans le message de news:
#VvwH#$
Bonjour à tous

Voila, j'aimerai que la somme de plusieurs cellule dans une plage
(B4:AC49)

se fasse selon la couleur du texte.
J'ai trouvé sur un site quelques chose qui s'y rapprochait mais c'etait
selon la couleur de la cellule, alors que moi c'est la couleur du texte
qui

m'importe.

Voici ce que j'ai trouvé :

Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + cell.value
Next
SomCool = cvSomme
End Function

Ensuite, cette formule a mettre dans une feuille :
=SomCool(B4:AC49;"rouge")


Ca fonctionne tres bien. Mais comment faire pour que ca prenne en compte
la

couleur du text et non la couleur du fond ?????
J'apprends tout doucement le VBA et .................. j'ai mal a la
tete


;o)
Merci pour votre aide precieuse !

Tony








Avatar
sabatier
ben non, jacquouille, car moi, en ce moment, je suis (Som)cool ou, mieux
dit, complètement HS (hors service, je sais que tu connais) suite à la
canicule que nous venons de vivre dans le quartier...et nous qui ne
sommes pas marseillais, on ne fait pas la sieste pour autant...
jps


Jacquouille a écrit:
Salut
Étonnant que JPS n'aie pas relevé la syntaxe en deuxième ligne:
Il s'agit d'une application du volatile. Et c'est vrai ! -))

--
Jacquouille (dit Saint Jacques)

"" a écrit dans le message news:


essaie de remplacer cell.Interior.ColorIndex par cell.Font.ColorIndex


dans

la macro


http://jacxl.free.fr/




"Tony" a écrit dans le message de news:
#VvwH#$

Bonjour à tous

Voila, j'aimerai que la somme de plusieurs cellule dans une plage


(B4:AC49)

se fasse selon la couleur du texte.
J'ai trouvé sur un site quelques chose qui s'y rapprochait mais c'etait
selon la couleur de la cellule, alors que moi c'est la couleur du texte


qui

m'importe.

Voici ce que j'ai trouvé :

Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + cell.value
Next
SomCool = cvSomme
End Function

Ensuite, cette formule a mettre dans une feuille :
=SomCool(B4:AC49;"rouge")


Ca fonctionne tres bien. Mais comment faire pour que ca prenne en compte


la

couleur du text et non la couleur du fond ?????
J'apprends tout doucement le VBA et .................. j'ai mal a la


tete


;o)
Merci pour votre aide precieuse !

Tony