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.
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.