Discussion :

[Rania1990]

Bonjour tout le monde,

j'ai appliqué une mise en forme conditionnelle à un tableau Excel et je voudrai créer une macro qui compte les cases qui ne sont pas affectées par la mise en forme conditionnelle (autre couleur que celle du fond) mais j'y arrive pas. ci-dessous le code que j'ai tenté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
n cells OK = 0
for i= 1 to range.rows.count 
if range.offset (0;-1). interior.color = " " 
then n cells OK = 1 + n cells ok 
end if
out = #commandes/ n cells ok

Merci pour votre aide

[jerome.vaussenat]

salut,

Comme tu pars d'une mise en forma conditionnelle, il y a une logique.

Donc, pour compter les cellules de couleur, tu n'as pas besoin de macro.

Tu peux utiliser un NB.SI s'il n'y a qu'une condition ou un NB.SI.ENS s'il y a plusieurs conditions.

[Pierre Fauconnier]

[…]

1000 fois!

[Rania1990]

Bonjour,

Merci pour vos réponses.

non, @Eric mais ça ne marche pas chez moi :/

[Invité]

Un fichier pour voir.

[Rania1990]

Classeur1.xlsx

[Invité]

Bonjour,

Ce code créé à partir d'un code d'Eriiic fonctionne-t-il chez vous ?

A adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Option Explicit
 
Public NbCelluleHorsMfc As Long
 
 
Sub Decompter_MFC_Dapres_Eriiic(ByVal AireABalayer As Range)
 
' Adaptation d'un code d'Eriiic
' https://www.developpez.net/forums/d1301667/logiciels/microsoft-office/excel/macros-vba-excel/copie-cellules-soumis-mise-forme-conditionnelle/#post7117355
 
Dim Plage As Range, Cellule As Range
 
    Set Plage = AireABalayer.SpecialCells(xlCellTypeAllFormatConditions)
    NbCelluleHorsMfc = 0
 
    If Not Plage Is Nothing Then
       For Each Cellule In Plage
           If Cellule.Interior.Color = Cellule.DisplayFormat.Interior.Color Then NbCelluleHorsMfc = NbCelluleHorsMfc + 1
       Next Cellule
    End If
 
   Set Plage = Nothing
 
End Sub
 
 
Sub TestDecompter_MFC_Par_Eriiic()
 
    Decompter_MFC_Par_Eriiic Sheets("Feuil1").Range("B1:B18")
    MsgBox "Nombre de cellules hors conditions Mfc : " & NbCelluleHorsMfc, vbInformation
 
End Sub

Ps : Salut Jérôme.