Calcul cellules en gras

[2Mainsgauches]

Bonjour,

Je suis archi débutant sur excel, je cherche, dans une colonne de lignes choisies à faire la somme automatique des lignes qui sont uniquement en gras, puis, à gauche dans une autre colonne faire apparaitre automatiquement le chiffre 2 pour chaque ligne qui à été mise en gras.

Merci d'avance.

 

[BOISGONTIER]

Re : Calcul cellules en gras

Bonjour,

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

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

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

 

[2Mainsgauches]

Re : Calcul cellules en gras

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

 

[2Mainsgauches]

Re : Calcul cellules en gras

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

 

[2Mainsgauches]

Re : Calcul cellules en gras

Personne ne répond ???

 

[gilbert_RGI]

Re : Calcul cellules en gras

Bonjour

espérant que cela fasse la demande

 

[2Mainsgauches]

Re : Calcul cellules en gras

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

 

[gilbert_RGI]

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

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