Cindy a une feuille de calcul entièrement formatée qui utilise la couleur dans de nombreuses cellules.

Certaines cellules contiennent des valeurs; beaucoup ne le font pas. Elle a besoin d’un moyen de compter les cellules colorées vides et se demande s’il existe un moyen rapide de le faire.

Il existe plusieurs façons d’obtenir les informations dont vous avez besoin. Une solution consiste à suivre ces étapes:

  1. Déterminez la couleur que vous souhaitez utiliser dans votre décompte.

  2. Appuyez sur F5. Excel affiche la boîte de dialogue Atteindre.

  3. Cliquez sur le bouton Spécial. Excel affiche la boîte de dialogue Aller à spécial.

(Voir la figure 1.)

  1. Sélectionnez le bouton radio Blanks.

  2. Cliquez sur OK. Maintenant, toutes les cellules vides de la feuille de calcul sont sélectionnées.

  3. Appuyez sur Ctrl + F. Excel affiche l’onglet Rechercher de la boîte de dialogue Rechercher et remplacer.

  4. Cliquez sur le bouton Options pour développer la boîte de dialogue. (Voir la figure 2.)

  5. Cliquez sur le bouton Format. Excel affiche la boîte de dialogue Rechercher un format.

  6. Assurez-vous que l’onglet Remplissage est affiché. (Voir la figure 3.)

  7. Cliquez sur la couleur que vous souhaitez rechercher. (C’est la couleur que vous avez déterminée à l’étape 1.)

  8. Cliquez sur OK pour fermer la boîte de dialogue Rechercher un format.

  9. Cliquez sur Rechercher tout.

Lorsque vous effectuez ces étapes, Excel indique, en bas de la boîte de dialogue Rechercher et remplacer, le nombre de cellules qu’il a trouvées correspondant à votre couleur. Étant donné que vous avez commencé la recherche avec uniquement des cellules vides sélectionnées, le décompte obtenu correspond à toutes les cellules vides remplies avec la couleur.

Bien sûr, si vous devez déterminer ce nombre plusieurs fois, ces étapes peuvent devenir très fastidieuses très rapidement. Dans de tels cas, il est préférable d’utiliser une macro. La macro suivante parcourt chaque cellule vide dans la plage que vous avez sélectionnée et vérifie si elle contient un motif ou une couleur et est vide. Si les conditions sont remplies, un compteur pour cette couleur est incrémenté.

Sub CountBlankColors1()

Dim c As Range     Dim J As Integer     Dim ColorCount(56) As Long

ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         With c.Interior             If .Pattern <> xlNone Then                 If .ColorIndex <> xlNone Then                     If IsEmpty(c) Then                         ColorCount(.ColorIndex) = _                           ColorCount(.ColorIndex) + 1                     End If                 End If             End If         End With     Next c

sTemp = "These are the color counts" & vbCrLf & vbCrLf     For J = 0 To 56         If ColorCount(J) > 0 Then             sTemp = sTemp & "Color " & J & ": " & ColorCount(J) & vbCrLf         End If     Next J

MsgBox sTemp End Sub

Bien sûr, vous ne voudrez peut-être pas compter différentes couleurs individuellement.

Au lieu de cela, vous voudrez peut-être savoir simplement combien de cellules vides sont remplies avec n’importe quelle couleur, au total. Dans ce cas, la macro devient beaucoup plus simple.

Sub CountBlankColors2()

Dim c As Range     Dim x As Long

x = 0     ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         If c.Interior.Pattern <> xlNone Then             If c.Interior.ColorIndex <> xlNone Then                 If IsEmpty(c) Then x = x + 1             End If         End If     Next c     MsgBox "Number of colored blank cells: " & x End Sub

Il convient de noter que ces approches ne prennent pas en compte si la cellule est colorée via l’utilisation d’un format conditionnel ou non.

(En fait, ils ne prennent pas du tout en compte les formats conditionnels.)

_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 (12581) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.