[VBA] total des cellules de couleurs

vyoxil Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
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

Afficher la suite

A voir également:

[VBA] total des cellules de couleurs
Verrouiller des cellules excel - Guide
Total uninstall - Télécharger - Divers Utilitaires
Excel additionner des cellules - Guide
Excel compter cellule couleur sans vba - Guide
360 total security - Télécharger - Antivirus & Antimalwares

2 réponses

Réponse 1 / 2
vyoxil

merci Kobaya je vais etudier ton code
1
Réponse 2 / 2
Kobaya Messages postés 282 Date d'inscription Statut Membre Dernière intervention 214
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
1. Foreseeker
  
  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

[VBA] total des cellules de couleurs

2 réponses

Discussions similaires

Newsletters