Calcul cellules en gras

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Mars 2010

• #2

Re : Calcul cellules en gras

Bonjour,

Fonction à mettre dans un module alt+f11 puis insertion/module

=Si( EstGras(A1);"Gras";"Non gras")

Code:

Function EstGras(c As Range) 
     EstGras = c.Font.Bold 
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_Somme_gras.xls

JB
Formation Excel VBA JB

 

Dernière édition: 3 Mars 2010

Vote positif 0 Vote négatif

2

2Mainsgauches

Guest

• 3 Mars 2010

• #3

Re : Calcul cellules en gras

Merci beaucoup, mais pour le chiffre 2 je fais comment ??

 

Vote positif 0 Vote négatif

2

2Mainsgauches

Guest

• 3 Mars 2010

• #4

Re : Calcul cellules en gras

La formule =Si( EstGras(A1);"Gras";"Non gras") ne fonctionne absolument pas !!!

 

Pièces jointes

• mon problème !!!.xls

  27.5 KB · Affichages: 86

Dernière modification par un modérateur: 3 Mars 2010

Vote positif 0 Vote négatif

2

2Mainsgauches

Guest

• 4 Mars 2010

• #5

Re : Calcul cellules en gras

Personne ne répond ???

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 5 Mars 2010

• #6

Re : Calcul cellules en gras

Bonjour

espérant que cela fasse la demande 😱

 

Pièces jointes

• Copie de mon problème !!!.xls

  33.5 KB · Affichages: 131

Vote positif 0 Vote négatif

2

2Mainsgauches

Guest

• 5 Mars 2010

• #7

Re : Calcul cellules en gras

Merci beaucoup, ça fonctionne !!! Bonne journée.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 5 Mars 2010

• #8

Re : Calcul cellules en gras

pour que ça fonctionne un peu mieux aux changements

mettre ceci dans le vbe dans le code de la feuille

Code:

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

 

Vote positif 0 Vote négatif