XL 2010 compter des cellules en tenant compte de deux critères :critére "gras" et critére "rouge"

michel.dupont · 9 Août 2019

Bonjour
comment compter des cellules qui se trouvent sur des lignes différentes selon deux critères différents :un critère gras et un critère de couleur? avec sommeprod ???Pour une meilleure compréhension de ma demande je joins un petit fichier...
Par avance merci de votre aide
Michel

pierrejean · 9 Août 2019

bonjour Michel

A tester:

VB:

Sub test()
Dim n, m
For n = 2 To 6
  Cells(n, 7) = 0
  For m = 1 To 5
     If Cells(1, m).Font.Bold = True And Cells(n, m).Interior.ColorIndex = 3 Then Cells(n, 6) = Cells(n, 6) + 1
  Next
Next
End Sub

michel.dupont · 10 Août 2019

pierrejean à dit:

bonjour Michel

A tester:

VB:

Sub test()
Dim n, m
For n = 2 To 6
  Cells(n, 7) = 0
  For m = 1 To 5
     If Cells(1, m).Font.Bold = True And Cells(n, m).Interior.ColorIndex = 3 Then Cells(n, 6) = Cells(n, 6) + 1
  Next
Next
End Sub

un grand merci
je vais assayer lundi et le cas échéant je reviens vers vous
bonne soirée
MICHEL

XL 2010 compter des cellules en tenant compte de deux critères :critére "gras" et critére "rouge"

michel.dupont

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

michel.dupont

XLDnaute Occasionnel

Discussions similaires