[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

A voir également:

[VBA] total des cellules de couleurs
Formule excel pour additionner plusieurs cellules - Guide
Excel compter cellule couleur sans vba - Guide
Verrouiller des cellules excel - Guide
Total uninstall - Télécharger - Divers Utilitaires
Incompatibilité de type vba ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

vyoxil
24 juin 2006 à 18:35

merci Kobaya je vais etudier ton code

Réponse 2 / 2

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

Foreseeker
25 sept. 2009 à 17:06

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.

Discussions similaires

Calcul des ventes par mois d'un produit

Total AdBlock

Formule calcul d'un total conditionnel

"L'indice n'appartient à la sélection" + VBA

stop à total Adblock !!!!