calcul suivant la couleur des caractères

A

Audrey

Guest
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]
 

Pièces jointes

  • calculstock.zip
    1.8 KB · Affichages: 26

porcinet82

XLDnaute Barbatruc
Salut Audrey,

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

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

XLDnaute Barbatruc
Modérateur
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]
 

Pièces jointes

  • calculstock_20051222160008.zip
    7.2 KB · Affichages: 25
A

Audrey

Guest
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

XLDnaute Barbatruc
Modérateur
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
 
A

Audrey

Guest
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
 

porcinet82

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Modérateur
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
 

Discussions similaires

Réponses
27
Affichages
2 K
Réponses
1
Affichages
261

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson