Fonction couleur

bonjour à tous, j'ai un soucis et j'ai beau chercher je ne trouve pas de solution.

je suis pas une experte et la je seche.

mon probleme: j'ai un tableau qui reprend des factures impayées avec a la fin le montant total d'impayés.

lorsqu'une facture est payée je change la couleur de police de la ligne concernée et la change en rouge.

j'aimerais que une fois la ligne en rouge, le montant de la facture qui est alors payée se déduise du total d'impayés.

merci de votre aide.

Bonjour

Dans un Module

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Font.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function

Code de Feuil1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

La formule Somme

=SOMME(Champ à Sommer)-SommeSiCouleur(Champ à Sommer;3)

Cordialement

j'ai rien compris lol

-- 07 Oct 2010, 15:40 --

je comprend pas l'histoire de creer un module???

Bonjour

Ta solution ne peut s'obtenir par formules et il faut passer par VBA

Pour adapter cette solution sur ton fichier

Alt + F11 ouvre l'éditeur VBA et fait apparaître le Module nommé Module1

Tu sélectionnes le Code de ce module et tu le copies (Edition-Copier)

Sur ton fichier, touches Alt et F11 ouvre l'éditeur VBA

Dans l'éditeur VBA, menu "Insertion" "Module"

Tu cliques sur Module1 et tu y colles le Code copié sur le fichier exemple.

Tu reviens au fichier exemple et tu cliques sur Feuil1

Tu copies ce code

Tu reviens sur ton fichier et dans l'éditeur VBA, tu cliques sur Feuil1

Tu y colles le Code

Tu fermes l'Editeur VBA (La croix habituelle en haut à droite)

et sur ta formule somme, tu écris la formule donnée dans l'exemple.

Cordialement

Quand tu fais Alt+F11 (Touches Alt et touche F11) tu obtiens

je vais essayer je te tiens au courant.

en tout cas merci pcke c super precis