Différence Gras - nongras

Merci

Bonjour,

Dans un module: AlT+11 puis Insertion/Module

Function SommeGras(champ As Range)
Application.Volatile
Dim i, t
t = 0
For Each i In champ
If i.Font.Bold = True Then
t = t + i.Value
End If
Next i
SommeGras = t
End Function

Function sommeNonGras(champ As Range)
Application.Volatile
Dim i, t
t = 0
For Each i In champ
If i.Font.Bold = False Then
t = t + i.Value
End If
Next i
sommeNonGras = t
End Function

Dans le tableur: =sommeGras(B2:B9)-sommeNonGras(B2:B9)

Cordialement JB

Bonjour à tous ,je différencie les chèques débités des non dé bités par le
fait que la police de la cellule soit "gras " ou "non gras".J'aimerai avo ir
dans une cellule Solde la différence cellules grasses- cellule non gras ses
Est ce possible (attention de ne pas compter la cellule Solde)
Merci de m'avoir consacré de votre temps

Rebonjour
Petit problème;
La cellule ne se met pas à jour en permanence cad quand je fais passer une
fonte de cellule du non gras à gras.il faut que je ferme la feuille pour la
mettre à jour
merci

La modification d'un format de cellule n'entraîne jamais d'événement
à partir duquel on peut ordonner la mise à jour. au besoin tu appuies
sur la Touche F9 après un reformatage pour un re-calcul



"Dhellin" <christophe.dhellin@wanadoo.fr> a écrit dans le message de news:
4523a758$0$5072$ba4acef3@news.orange.fr...
Rebonjour
Petit problème;
La cellule ne se met pas à jour en permanence cad quand je fais passer une
fonte de cellule du non gras à gras.il faut que je ferme la feuille pour la
mettre à jour
merci

Ajoute ceci dans le code de la feuille:Clic/Droit sur onglet puis visu
code:

http://cjoint.com/?keskgFLNPM

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

JB

Rebonjour
Petit problème;
La cellule ne se met pas à jour en permanence cad quand je fais passer une
fonte de cellule du non gras à gras.il faut que je ferme la feuille pou r la
mettre à jour
merci

Merci pour le fichier