METROLOGUE
XLDnaute Nouveau
peut on compter le nombre de cellule avec une police par exemple en gras et de couleur rouge ?
je ne comprend rien a ce que vous ditesBonjour,
Remonter un fil de 2008 je ne sais pas si c'est judicieux, tant les versions d'excel ont changé.
De plus le langage sms (stl, bjr) est à proscrire sur ce forum (cf. la charte, à lire avant de poster) .
Créez donc un fil de discussion avec votre question, vos couleurs n'étant pas issues d'une mfc, les choses se traitent différemment.
Bon après-midi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim P As Range, Q As Range, c As Range
Set P = [A7:C20]
If Intersect(Target, P) Is Nothing Then Exit Sub
Cancel = True
Set Q = [E5:G61]
Q.Columns(3).ClearContents 'RAZ
For Each c In Q.Columns(1).Cells
c(1, 2).Interior.ColorIndex = c
Next
For Each c In Intersect(Target.EntireColumn, P)
With Q(Application.Match(c.Font.ColorIndex, Q.Columns(1), 0), 3)
.Value = .Value + 1 'comptage
End With
Next
End Sub