calcul suivant la couleur des caractères

porcinet82

XLDnaute Barbatruc

• 22 Décembre 2005

• #2

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

@+

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 22 Décembre 2005

• #3

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

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 22 Décembre 2005

• #4

Salut Pascal76,

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

@+

 

Vote positif 0 Vote négatif

A

Audrey

Guest

• 22 Décembre 2005

• #5

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?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 22 Décembre 2005

• #6

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

 

Vote positif 0 Vote négatif

A

Audrey

Guest

• 22 Décembre 2005

• #7

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

 

Vote positif 0 Vote négatif

A

Audrey

Guest

• 22 Décembre 2005

• #8

Excuse moi mais c'est quoi une MFC?

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 22 Décembre 2005

• #9

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.

@+

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 22 Décembre 2005

• #10

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

 

Vote positif 0 Vote négatif

A

Audrey

Guest

• 22 Décembre 2005

• #11

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!!!

 

Vote positif 0 Vote négatif

A

Audrey

Guest

• 22 Décembre 2005

• #12

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!!!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 22 Décembre 2005

• #13

Re

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

 

Vote positif 0 Vote négatif

A

Audrey

Guest

• 22 Décembre 2005

• #14

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?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 22 Décembre 2005

• #15

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

 

Vote positif 0 Vote négatif