Excel vous permet d’appliquer toutes sortes de mise en forme aux cellules de votre classeur. Une des choses que vous pouvez faire est d ‘«ombrer» les cellules à l’aide d’un motif ou d’une couleur. (Vous faites cela dans l’onglet Modèles de la boîte de dialogue Format de cellule.) À un moment donné, vous souhaiterez peut-être savoir combien de cellules dans une plage sont ombrées.

Il n’y a pas de formule de feuille de calcul dans Excel qui vous permettra de compter les cellules ombrées. Au lieu de cela, vous devez développer votre propre macro pour ce faire. La macro suivante est un exemple d’une manière d’aborder ce problème. Il compte le nombre de cellules ombrées dans la plage de A1 à J20 et place le nombre dans la cellule A1.

Sub CountColor()

Dim irow, icol As Integer

Cells(1, 1) = 0     For irow = 1 To 20         For icol = 1 To 10             If Cells(irow, icol).Interior.ColorIndex _               <> xlColorIndexNone Then                 Cells(1, 1) = Cells(1, 1) + 1             End If         Next icol     Next irow End Sub

Notez que le cœur de la routine est la comparaison effectuée entre le ColorIndex de chaque cellule et la constante xlColorIndexNone prédéfinie. S’ils ne sont pas égaux, la cellule a été grisée d’une manière ou d’une autre.

Cette même technique de base peut être facilement adaptée à une fonction personnalisée.

Notez dans ce qui suit que la même comparaison est effectuée cellule par cellule:

Function FindShades(a As Range) As Integer     FindShades = 0     For Each c In a         If c.Interior.ColorIndex <> xlColorIndexNone Then             FindShades = FindShades + 1         End If     Next c End Function

Pour utiliser cette fonction, utilisez-la simplement dans une cellule, comme formule, et spécifiez une plage dans la formule:

= FindShades(B7:E52)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2059) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.