Somme de cellules si caractere gras

[zevinzou]

Bonsoir @ tous,
je recherche desesperement comment faire une somme ... de caractere gras .
j'ai cherché sur le forum , j'ai bien compris qu'une mfc n'était pas possible et qu il fallait utiliser une formule vba , que je ne maitrise pas du tout !!
j'ai copier , modifier et essayer plusieur fichier ... j'utilise excel 2003
or dans les fichiers "deja fait " dans la colonne resultat apparait " #NOM? "
je ne voit pas comment faire
ci joint un fichier essai
qqn pourrait il m'aider svp
merci d'avance.

 

[BOISGONTIER]

Re : Somme de cellules si caractere gras

Bonjour,

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

Pour Maj automatique

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

Voir PJ

JB

 

[Pierrot93]

Re : Somme de cellules si caractere gras

Bonsoir,

ton fichier en retour, avec une fonction personnalisée.

bonne soirée
@+

 

[zevinzou]

Re : Somme de cellules si caractere gras

Bonsoir à tous les deux et merci de la rapidité de votre réponse
mais je comprends pas qd j ouvre le fichier chez moi il y a tjrs "=NOM?" pour le résultat dans les fichiers
???????
faut il faire une manip particulière ?
re merci d'avance

 

[Pierrot93]

Re : Somme de cellules si caractere gras

Re,

peut être un problème de sécurité macro, ton niveau est top haut, le placer sur moyen barre de menu => outils => macro => sécurité...
te demandera ensuite à l'ouverture d'activer ou pas les macros...

@+

 

[zevinzou]

Re : Somme de cellules si caractere gras

rien y fait g fait comme tu dis g mis au plus bas !!! rien tjrs ce ""NOM?"

aiuto !!!

de plus une fois la formule taper si je decide de mettre en gras une de ces celllules , le calcul est mis a jour ou faut il faire qqch de particulier ?


re re merci d'avance ;-)

 

[Pierrot93]

Re : Somme de cellules si caractere gras

Re

pour qu'elle se déclenche lors de chaque calculs :

Option Explicit
Function sommegras(plage As Range)
Dim c As Range
Application.Volatile
For Each c In plage
    If c.Font.Bold = True Then sommegras = sommegras + c.Value
Next c
End Function

tu as bien que des nombres dans tes cellules ? si ce n'est pas le cas faire un test sur les cellules...

@+

 

[zevinzou]

Re : Somme de cellules si caractere gras

merci chef ,
oui que des chiffres
par contre une fois copier ta formule ou je la mets exactement
alt + f11
coller ???
c tout ou il faut activer qqch
merci

 

[Pierrot93]

Re : Somme de cellules si caractere gras

Re

oui avec ALT F11 tu ouvres l'éditeur vba, ensuite barre de menu => insertion => module standard et tu colle le code dans ce module...

 

[zevinzou]

Re : Somme de cellules si caractere gras

ben je omprends pas ce que je fais de mal ???
je fais exactement comme indiqué a partir du fichier que tu m'a envoyé mais tjrs nom ambigu " #NOM?"
au secours !!!!

 

[Pierrot93]

Re : Somme de cellules si caractere gras

Re

regarde le fichier joint, le code est à l'intérieur je l'ai modifié...

 

[zevinzou]

Re : Somme de cellules si caractere gras

tip top merci ça marche nikel
je dois marquer resolu c ça ?
;-)
encore merci @+