compter le nbr de cellule couleur

[jcvalentin]

Bonjour,

Comment compter le nombre de cellule de couleur (fond rouge) sur une ligne de plusieurs cellules et mettre le résultat dans une autre cellule, le fond provient d'une MFC
Merci

 

[jeanpierre]

Re : compter le nbr de cellule couleur

Bonjour jcvalentin,

En comptant les cellules répondants à la condition de la MFC avec un NB.SI(ta plage;la condition), par exemple, mais sans voir ton fichier difficile d'en dire plus.

Bon après-midi.

Jean-Pierre

 

[ROGER2327]

Re : compter le nbr de cellule couleur

Bonjour à tous

Sans le classeur, difficile de donner une solution complète. Toutefois, le code qui suit devrait compter le nombre de cellules à fond rouge résultant d'une mise en forme conditionnelle dans la plage sélectionnée de la feuille active au moment de son exécution.

[COLOR="DarkSlateGray"][B]Sub toto()
Dim x As Long, i As Long, oPlg As Object, oCel As Range
   Set oPlg = Intersect(Selection, Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)))
   If Not oPlg Is Nothing Then
      With Application: .ScreenUpdating = False: .EnableEvents = False: End With
      For Each oCel In oPlg.Cells
         oCel.Select
         If Selection.FormatConditions.Count Then
            For i = 1 To Selection.FormatConditions.Count
               If Evaluate(Selection.FormatConditions(i).Formula1) Then
                  If Selection.FormatConditions(i).Interior.ColorIndex = 3 Then x = x + 1
                  Exit For
               End If
            Next i
         End If
      Next oCel
      MsgBox "Mise en forme conditionnelle :" & vbLf & vbLf & _
         IIf(x, x, "Aucune") & " cellule" & IIf(x > 1, "s ", " ") & "ROUGE" & _
         IIf(x > 1, "S ", " ") & "dans la plage " & oPlg.Address & "."
      oPlg.Select
      With Application: .EnableEvents = True: .ScreenUpdating = True: End With
   End If
End Sub[/B][/COLOR]

ROGER2327
#2587

 

[Efgé]

Re : compter le nbr de cellule couleur

Bonjour ROGER2327, jeanpierre, jcvalentin,
Une proposition :

Sub Compter_Rouge()
Dim Compt As Long
Compt = 0
For i = 2 To 5
    For j = 1 To 6
        If Cells(i, j).Interior.ColorIndex = 3 Then
            Compt = Compt + 1
        End If
    Next j
Cells(i, 7).Value = Compt
Compt = 0
Next i
End Sub

Cordialement

 

[ROGER2327]

Re : compter le nbr de cellule couleur

Re...

Efficace... ...pour trouver le nombre de cellules à fond rouge.
Sauf qu'ici, on veut trouver nombre de cellules à fond rouge résultant d'une mise en forme conditionnelle :

(...) le fond provient d'une MFC (...)

ROGER2327
#2588

 

[Efgé]

Re : compter le nbr de cellule couleur

Re
Exact ROGER2327, je ne l'avais pas vu venir.
Avec un MFC

Interior.ColorIndex

n'est pas reconnu.
Désolé pour jcvalentin 😱
Cordialement

 

[jcvalentin]

Re : compter le nbr de cellule couleur

la solution de ROGER 2327 ne me renvoie pas la bonne réponse,
la solution de Efgé marche pas sur MFC
joint un petit fichier test

 

[jeanpierre]

Re : compter le nbr de cellule couleur

Bonjour jcvalentin, ROGER, Efgé,

Pas sûr d'avoir compris, notamment avec ta phrase "(attention il peut y avoir plusieurs conditions egale dans la MFC 7,3,5,,, par contre le fond sera toujours rouge si ok)",

mais en G4 :

=NB.SI(A4:F4;7) résoud l'exemple du fichier où il n'est question que de 7 dans ta MFC. (à tirer vers le bas)

S'il peut y avoir d'autres conditions il faudra passer par un SOMMEPROD().

Bonne journée.

Jean-Pierre

 

[Efgé]

Re : compter le nbr de cellule couleur

Bonjour à tous,
On peux essayer comme ça :

Sub Compter_Rouge()
Dim Compt As Long
Compt = 0
For i = 4 To 8
    For j = 1 To 5
   [COLOR=green]'Pour plusieurs conditions:[/COLOR]
[COLOR=green]   'If Cells(i, j).Value = 7 Or  If Cells(i, j).Value = 3 Then[/COLOR]
        If Cells(i, j).Value = 7 Then
            Compt = Compt + 1
        End If
    Next j
Cells(i, 6).Value = Compt
Compt = 0
Next i
End Sub

Cordialement

 

[jcvalentin]

Re : compter le nbr de cellule couleur

Merci à tous de vos solutions, problème résolu