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
 
S

STephane

Guest
bonjour

des pistes là
<http://perso.wanadoo.fr/frederic.sigonneau>
<http://xlbysteph.free.fr/aideinformatique/actionformat.htm>
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas