Compter les cellules de même couleur

[Nanir]

Bonjour à tous,

Voici mon problème, j'espère que vous pourrez m'aider...

J'ai une colonne avec une mise en forme conditionnelle. Si la date de la cellule + 90 jours est supérieur à la date du jour alors elle se colorie en rouge.
Ca, ca fonctionne...

Ensuite j'essaye de compter les cellules qui sont rouges avec ce code :

Sub test()
Dim cell As Range
Dim I As Integer, N As Integer
N = 0
For Each cell In Range("KBIS")
If cell.Interior.ColorIndex = 3 Then N = N + 1
Next
MsgBox (N)
End Sub

Le problème est que VBA ne connait le code couleur généré par la mise en forme conditionnelle. Lorsque je pose la question avec ce code :

Sub test2()
MsgBox (Cells(2, 2).Interior.ColorIndex)
End Sub

Il me renvoie -4142?

Avez vous une solution à ce problème?
vous trouverez un fichier pour l'exemple.
Merci.

 

[wilfried_42]

Re : Compter les cellules de même couleur

bonjour nanir

Les MFC fonctionnent comme un papierpeint et ne genere aucune couleur sur la cellule, le seul moyen est de reprendre la condition de la mfc

 

[SergiO]

Re : Compter les cellules de même couleur

Bonjour Nanir,

La solution c'est de reprendre Date + 90 dans le code :

Sub test()
Dim cell As Range
Dim I As Integer, N As Integer
N = 0
For Each cell In Range("KBIS")
If cell.Value > Date + 90 Then N = N + 1
Next
MsgBox (N)
End Sub

@+

Edition : Bonjour Wilfried (pas rafraichi...)

 

[Nanir]

Re : Compter les cellules de même couleur

Je n'ai vraiment pas comment reproduire la MFC en vba...cause des dates... ca me dépasse...

 

[Catrice]

Re : Compter les cellules de même couleur

Bonjour,

ci-joint une formule qui permet de faire le calcul dans la feuille.
Basé sur la meme formule que celle de la MFC (si MFC, pas besoin de Vba)
Un peu compliquée par les cellules fusionnées.

 

[Nanir]

Re : Compter les cellules de même couleur

Je recherche plûtot une solutuion VBA...

 

[SergiO]

Re : Compter les cellules de même couleur

Dans ma première réponse, je n'avais pas regardé ton fichier.

Voici donc le code modifié :

Sub Test()
Dim Cell As Range
Dim DateJ As Double, DateV As Double
Dim I As Integer, N As Integer
N = 0
For Each Cell In Range("KBIS")
If Cell <> "" Then
Cell = Format(Cell, "dd/mm/yyyy")
DateV = Format(Cell, "0") + 90
DateJ = Format(Date, "Standard")
If DateV > DateJ Then
N = N + 1
End If
End If
Next
MsgBox (N)
End Sub

@+

 

[Catrice]

Re : Compter les cellules de même couleur

Re,

Ci-joint une solution Macro.
J'ai l'impression que la MFC n'impacte pas la propriété de la cellule.
On ne peut donc pas tester la couleur.