[VBA] total des cellules de couleurs

Fermé
vyoxil Messages postés 1 Date d'inscription samedi 11 février 2006 Statut Membre Dernière intervention 23 juin 2006 - 23 juin 2006 à 22:00
 Foreseeker - 25 sept. 2009 à 17:06
bonjour
comment peut on en vba compter dans un tableau (a1:g30) le nombre des cellules possedant un fond de couleur rouge .

merci de votre attention
cordialement

2 réponses

merci Kobaya je vais etudier ton code
1
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
24 juin 2006 à 16:13
salut vyoxil,

A toi d'adapter ce code à ton besoin :
Sub CompteCouleurs()
    Dim rngCell         As Range
    Dim intNbCouleurs   As Integer
    
    For Each rngCell In Range("A1:G30").Cells
        If rngCell.Interior.ColorIndex = 3 Then
            intNbCouleurs = intNbCouleurs + 1
        End If
    Next
    MsgBox intNbCouleurs & " cellules rouges"
End Sub
0
Salut,

ta solution foncitonne, mais UNIQUEMENT si la mise en couleur est 'en dur'.

Si on cherche à compter des cellules qui ont été coloriées au moyen d'une mise en forme conditionnelle, ça ne marche pas.

Comment faire alors ?

Merci.
0