calcul suivant la couleur des caractères

[Audrey]

bonjour vous tous,

En faisant des recherches j'ai vu qu'il était possible de faire un calcul suivant la couleur de la cellule mais cela est-il possible suivant la couleur des caractères?

Je voudrais en fait additionner les valeurs de couleur verte et soustraire celles de couleur rouge et tous ça dans une même cellule.

Je vous joint un fichier peut-être plus clair que ma question. [file name=calculstock.zip size=1808]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/calculstock.zip[/file]

 

[porcinet82]

Salut Audrey,

Voici une petite solution par macro. j'espère que c'est ce que tu souhaitais.

Sub calc()
Dim somme_rouge As Integer, somme_verte As Integer

Application.Goto Sheets('feuil1').Range('B13')
For i = 13 To Range('b65536').End(xlUp).Row
    If Cells(i, 2).Font.ColorIndex = 3 Then
        somme_rouge = somme_rouge + Cells(i, 2).Value
    ElseIf Cells(i, 2).Font.ColorIndex = 10 Then
        somme_verte = somme_verte + Cells(i, 2).Value
    End If
Next i
Cells(9, 5).Value = somme_verte - somme_rouge
End Sub

@+

 

[PascalXLD]

Bonjour

Avec une petite fonction [file name=calculstock_20051222160008.zip size=7407]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/calculstock_20051222160008.zip[/file]

 

[porcinet82]

Salut Pascal76,

Tres pratique cette petite fonction, je la met de coté. merci a toi pour cet apport de connaissance.

@+

 

[Audrey]

Merci beaucoup pour ce code mais je vais t'ennuyer encore un peu:
pour l'exemple du fichier joint le résultat devrait être de -4 et il s'affiche 4.

Peut-on faire pour que les résultats positif s'affichent en vert et les résultats négatifs s'affichent en rouge?

 

[PascalXLD]

Re

Oups je me suis planté dans mon calcul

Change juste la couleur de la cellule A1 et A2 et cela devrait être bon

Tu mets dans la cellule où j'ai mis calcul+ la couleur que tu veux en plus et dans celle calcul - la couleur en moins

Sinon pour la couleur une MFC devrait faire l'affaire

Message édité par: Pascal76, à: 22/12/2005 16:30

 

[Audrey]

De plus, je ne sais pas à l'avance le nombre de ligne que je vais avoir alors j'ai voulu modifier de cette façon l'écriture de la formule dans la cellule résultat:

=CalculStock(G16:G.count;A1;A2)

P.S.: la modif c'était un essai je suis débutante

Merci d'avance

 

[Audrey]

Excuse moi mais c'est quoi une MFC?

 

[porcinet82]

re,

Une MFC c'est une mise en forme conditionnelle. POur voir a quoi cela ressemble, tu va dans Format\\Mise en forme conditionnelle.

Cette commande applique aux cellules sélectionnées une mise en forme selon la valeur de ces cellules ou le résultat d'une formule. Vous pouvez appliquer 3 critères à une même cellule et donc 4 formats à la cellule, le format de départ et les 3 formats correspondant à chaque critère. (ce n'est pas de moi)

J'espère avoir répondu a ta question.

@+

 

[PascalXLD]

Re

Merci porcinet pour la MFC

Pour la fonction Audrey comme toute fonction c'est au moment où tu l'écris que tu selectionnes ta plage à compter

Sit u appuies sur Fx tu verras dans la liste la fonction créé et tu fais comme toute fonction d'excel

Tu selectionnes ta plage de cellule à compter
Tu selectionnes une cellule où se trouve la couleur positive
Tu selectionnes une cellule où se trouve la couleur négative

Bon courage

 

[Audrey]

Merci beaucoup, grâce à toi mon programme a fait un grand pas. J'ai pas encore essayer la MFC mais ça devrait aller vu ce que tu m'as expliquer.
encore merci et bonne soirée!!!

 

[Audrey]

Excuse moi Pascal mais j'avais pas lu ton post quand j'ai écris celui d'avant...
En fait j'aurais voulu pouvoir sélectionner toute la colonne mais ça fait beaucoup si faut que je le fasse avec la souris!!!

 

[PascalXLD]

Re

Pas grave dans ce cas tu remplaces le chiffre de ta ligne à la main

 

[Audrey]

C'est pour ça que j'avais modifier la formule de la cellulu par H15:H.count pour aller chercher la dernière cellule de la colonne mais c'est pas ça.
y'a un nombre limite de ligne ou pas?

 

[PascalXLD]

Re

Non tu mets ce que tu veux en nombre de lignes

Mais tu peux ecrire la fonction à la main si tu veux eviter de selectionner les celules