Compter nbre cellules rouges avec MFC

J

jp

Guest
bonjour a tous,

Je dois compter le nombre de cellules qui change de couleur avec une MFC( comparaison de 2 listes)?

Mon probleme est que je connais comment le faire sans MFC mais ce programme ne fonctionne pas quand le changeant de couleur est due à une MFC
Sub test()


Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection
If Cellule.Font.ColorIndex = 3 Then
total = total + Cellule.Count
End If
Next
MsgBox "Il y a " & total & " Cellules rouges"
Range("a98") = total
End Sub


merci par avance

JP
 

Discussions similaires