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