Compter le nombre de cellules avec une couleur spécifique à l’aide de VBA

Dans l’onglet formules de Microsoft Excel, nous connaissons que, dans la catégorie autres fonctions statistiques , il existe une fonction appelée NB.SI qui compte le nombre de cellules à l’intérieur d’une plage qui répondent à une condition donnée. Les critères de cette fonction sont limités à du texte ou des nombres. Toutefois, à l’aide de VBA, nous pouvons créer une fonction pour compter le nombre de cellules avec d’autres critères, tels que la couleur de cellule.

Plus d’informations

À l’aide de VBA, une fonction définie par l’utilisateur (UDF) peut être créée et enregistrée dans un fichier de complément de sorte qu’elle puisse être utilisée dans d’autres classeurs et transférée à d’autres ordinateurs.

Procédure de création d’une FDU

Voici les étapes à suivre pour créer une FDU afin de compter la couleur de la cellule :

  1. Ouvrez Microsoft Excel, puis appuyez sur ALT + F11 pour afficher la fenêtre Visual Basic Editor (VBE).
  2. Dans le menu insertion , sélectionnez module pour créer un module. Tapez ensuite le script suivant :
    Function CountCcolor(range_data As range, criteria As range) As Long     Dim datax As range     Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data     If datax.Interior.ColorIndex = xcolor Then         CountCcolor = CountCcolor + 1     End If Next datax End Function
    

    Dans le menu Insertion, sélectionnez module pour créer un module. Écrivez ensuite le script suivant

  3. Fermez la fenêtre VBE pour revenir à Excel.
  4. Pour tester la FDU, créez un exemple de données qui contient une colonne de cellules dans diverses couleurs.
  5. Dans la cellule D3, écrivez la fonction :
=CountCcolor(range_data,criteria)
  • Dans l’argument « range_data », sélectionnez la cellule C2 à C51.
  • Dans l’argument « critères », sélectionnez la cellule F1.Dans la cellule D3, écrivez la fonction : = CountCcolor
  1. Appuyez sur Entrée. Le résultat dans la cellule F2 est 6. Cela signifie que le nombre de cellules ombrées en bleu est de 6.Appuyez sur entrée et dans la cellule F2, le résultat est 6. Cela signifie que le nombre de cellules avec une couleur de cellule bleue est de 6 cellules
  2. Vous pouvez tester à l’aide d’autres couleurs. Remplacez la couleur de la cellule F1 par une couleur de votre choix dans les données à l’aide de la couleur de remplissage de l’ Accueil > .Vous pouvez également tester une autre couleur. Modification de la couleur de la cellule F1 avec une couleur de votre choix parmi les données à l’aide de l’outil reproduire la mise en forme pour obtenir une même couleur
  3. Vous pouvez également compresser la FDU de manière à ce que la fonction puisse être utilisée dans un autre classeur ou sur un autre ordinateur. Pour ce faire, procédez comme suit :Étape 1 : enregistrer le classeura. Sélectionnez fichier, puis Enregistrer sous. (Sélectionnez Parcourir si nécessaire.)b. Sélectionnez complément Excel (. xlam) comme format et donnez un nom au fichier, tel que CountCcolor.

     Notes

    Vous pouvez enregistrer votre fichier de complément à l’emplacement de votre choix. Toutefois, pour qu’il soit mentionné comme complément dans votre programme Excel, enregistrez-le à l’emplacement par défaut. Dans Windows 7, l’emplacement par défaut de n’importe quelle version de Microsoft Excel est : C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    Étape 2 : installer le complément

    a. Ouvrez Microsoft Excel sur l’ordinateur sur lequel vous souhaitez installer le complément.

    b. Ouvrez la boîte de dialogue compléments en sélectionnant compléments Excel pour Excel 2013 et version ultérieure sous l’onglet développeur . (compléments sur Excel 2010.)

    c. Dans la boîte de dialogue compléments , sélectionnez ParcourirDans la boîte de dialogue complément, cliquez sur le bouton Parcourir pour afficher la boîte de dialogue Parcourir.

    d. Accédez à l’emplacement du fichier dans lequel le fichier de complément est enregistré (par exemple, un lecteur USB ou un dossier en nuage). Choisissez le fichier, puis sélectionnez ouvrir.

    e. Dans la boîte de dialogue compléments, assurez-vous que la case à cocher complément est désactivée. Puis sélectionnez OK.

    Dans la boîte de dialogue compléments, assurez-vous que la case à cocher complément est désactivée. Puis sélectionnez OK.

La FDU de couleur de cellule Count est installée et prête à l’emploi. Vous pourrez accéder à cette fonction à tout moment en plaçant votre curseur dans une cellule de la feuille de calcul et en tapant :

=CountCcolor(range_data,criteria)