toal cellules colorees

[CALIDENIS]

bonjour,

J'ai besoin de totaliser le nombre de cellules colorées (toutes couleurs confondues) dans un tableau excel.

Merci pour votre aide.

Cordialement

CALI

 

[Matheop]

Re : toal cellules colorees

Salut CALIDENIS,

Je te propose la macro suivante :

Sub compteurCellulesColorees()

  ' déclaration d'un compteur
  Dim compteur As Integer
  ' déclaration d'une plage; exemple A1 <-> G18
  Set plage = Sheets(1).Range("A1:G18")
  ' initialisation du compteur
  compteur = 0
  
  ' boucle d'analyse de chaque cellule de la plage
  For Each cel In plage.Cells
    ' si la cellule est colorée alors on incrémente le compteur de 1
    If cel.Interior.ColorIndex <> xlNone Then compteur = compteur + 1
  Next cel

  ' affichage du nombre de cellules colorées
  MsgBox compteur

End Sub

Cordialement,
Mat'

 

[CALIDENIS]

Re : toal cellules colorees

Bonjour et merci.

Cà fonctionne très bien

A+