Comptage de celules en GRAS

[bernardrustrel]

Bonjour a tous.🙂
Voici mon, pb: j'ai établi un fichier ou pour différencier certaines cellules des autres j'ai, à l'aide du format conditionnel, le contenu de ces cellules qui s'affiche en GRAS. j'en arrive à ma question: j'aimerai pouvoir compter ces cellules dont la police est mise en GRAS.
Merci par avance de votre aide.

 

[j'Excel dans tout]

Re : Comptage de celules en GRAS

salu bernardrustrel,

je vois une solution mais je sais pas si c'est la meilleure car je sui débutant en vba.
je ferai comme ça :

dim u as integer
for each cell in range("A:A")
     if cell.font.bold=true then
          u=u+1
     end if
next cell
MsgBox ("nombre de cellules en gras : " & u)

bien sur tu remplace par la plage que tu veux utiliser.
cordialement

j'Excel dans tout

 

[Staple1600]

Re : Comptage de celules en GRAS

Bonjour


En complément de ta question

une fonction pour sommer les cellules en gras

'******************************************************
'http://www.mcgimpsey.com/excel/udfs/sumbold.html
  'Purpose:   Sum cells with bold formatting applied
  'Inputs:     vInput - array of one or more input ranges
  'Returns:   Sum of cells in vInput with bold formatting
  '******************************************************
  Public Function SumBold( _
        ParamArray vInput() As Variant) As Variant
    Dim rParam As Variant
    Dim rCell As Range
    Dim vTemp As Variant
        
    Application.Volatile
    On Error GoTo ErrHandler
    For Each rParam In vInput
      If TypeName(rParam) = "Range" Then
         With rParam
           For Each rCell In Intersect( _
               .Cells, .Cells.Parent.UsedRange)
             With rCell
               If .Font.Bold Then
                 If IsError(.Value) Then
                    vTemp = .Value
                    Exit For
                  ElseIf VarType(.Value2) = vbDouble Then
                    vTemp = vTemp + .Value2
                  End If
               End If
             End With
           Next rCell
         End With
       End If
     Next rParam
     SumBold = vTemp
   Continue:
     On Error GoTo 0
     Exit Function
   ErrHandler:             'Check for overflow
     If Err.Number = 6 Then SumBold = CVErr(xlErrNum)
     Resume Continue
   End Function

Et ici une fonction personnalisée complète sur les formats
MrExcel Message Board :: View topic - Dynamic named range dependant on cell formatting

 

[j'Excel dans tout]

Re : Comptage de celules en GRAS

Salu Staple1600,

je vois que je suis encore bien incapable d'écrire des codes comme ça 🙁
j'ai encore du chemin à faire pour te rattraper 😛
je comprend pas la moitié des choses que tu as écrites mais c'est pas grave, je me documenterai.

amicalement

j'Excel dans tout

 

[Staple1600]

Re : Comptage de celules en GRAS

Re


Attention le code n'est pas de moi

Ce code vient de là
'http://www.mcgimpsey.com/excel/udfs/sumbold.html


Un autre code plus court qui vient du net (et pas de mes neuronnes)

Public Function SumBold(rngSumRange As Range) As Single 
'Auteur; ken Johnson
'SOURCE:microsoft.public.excel.worksheet.functions
'mot-clé: SUM if cell is Bold 
Application.Volatile 
Dim rngCell As Range 
For Each rngCell In rngSumRange 
If IsNumeric(rngCell.Value) Then 
If rngCell.Font.Bold = True Then 
SumBold = SumBold + rngCell.Value 
End If 
End If 
Next rngCell 
End Function

 

[Gorfael]

Re : Comptage de celules en GRAS

Salu Staple1600,

je vois que je suis encore bien incapable d'écrire des codes comme ça 🙁
j'ai encore du chemin à faire pour te rattraper 😛
je comprend pas la moitié des choses que tu as écrites mais c'est pas grave, je me documenterai.

amicalement

j'Excel dans tout

Salut à toutes et tous
Désolé de foutre le bordel, 😀 mais, si j'ai bien lu le sujet de départ :"j'ai, à l'aide du format conditionnel, le contenu de ces cellules qui s'affiche en GRAS"
Donc, si j'ai bien lu Freud dans le texte, rCell.Font.Bold restera à false dans les cellules concernées.
la seule solution que je connaisse est de comptabiliser les cellules de la plage qui répondent à la condition
=> Donc, peux-tu donner les conditions de tes cellules qui conduisent à afficher la police en gras ?

Pas tout compris sur la macro proposée 😕

A+

 

[Staple1600]

Re : Comptage de celules en GRAS

Bonjour Gorfael



Justement apres avoir relu le post (et m'être apercu de la présence de format conditionnel)

Sub DenombreBOLDCELLS()
Dim compteur as Long' ou Integer je sais pas
Dim Rng As Range
With [A1] 'mettre ici la référence de la formule contenant
'le format conditionnel
compteur = 0
    For Each Rng In Selection.SpecialCells(xlCellTypeSameFormatConditions)
        If Not IsEmpty(Rng) And IsNumeric(Rng) Then
'tu peux supprimer And IsNumeric(Rng) qui sert à indentifier les cellules contenat des nombres
        compteur = compteur + 1
        End If
    Next
End With
MsgBox "Le nombre de cellules en gras est de : " & compteur, vbInformation, "Résultats"
' en fait on obtiens le nombre de cellules qui répondent au format conditionnel
'donc cela peut servir pour tout les formats: gras, motifs, bordures
End Sub

 

[j'Excel dans tout]

Re : Comptage de celules en GRAS

Salut Gorfael,
re aux autres,

Staple1600 je suis bien d'accord que ce n'est pas toi qui l'a écrit, mais si tu le met c'est que tu l'as compris et que tu es capable de le refaire donc ça revient à peu près au même 😛

une petite question qui me pertube :
si j'ai bien compris, le fait de mettre les cellules en gras par format conditionnel ne revient pas au même que les mettre en gras à la main ?
on arrive pourtant au même résultat allors pourquoi excel ne prendrais pas les celllules mises en gras par format conditionnel ?😕

je voulais aussi savoir si mon code marcherait si j'ai à faire à ce cas de figure plus tard ou si je serai obligé d'en piquer un sur internet comme certain que je ne citerai pas mais qui se reconnaitront ! hein Staple1600 ! 😀

à+

 

[Staple1600]

Re : Comptage de celules en GRAS

Re

Format conditionnel
La macro Sub DenombreBOLDCELLS() compte les cellules selon le format conditionnel.

Format cellules (Font.Bold=True)
Compte les cellules en gras
La macro de j'Excel dans tout le fait trés bien.

sub macro1()
'auteur:j'Excel dans tout
dim u as integer
for each cell in range("A:A")
     if cell.font.bold=true then
          u=u+1
     end if
next cell
MsgBox ("nombre de cellules en gras : " & u)
end sub

 

[wilfried_42]

Re : Comptage de celules en GRAS

Bojour à tous

je rejoins gorfael, dans tous les post on peut le lire : les mises en formes conditionnelles ne modifient pas les cellules est n'affectent directement les cellule en y affectant un format quelconque

Comme gorfael, il nous faut les conditions qui provoquent l'affichage GRAS et les reprendre généralement dans une formule de type SOMMEPROD

@ te lire