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

Résumé

Sous l’onglet Formules Microsoft Excel, nous savons que dansla catégorieStatistiques plus de fonctions>, il existe une fonction appelée COUNTIF qui compte le nombre de cellules d’une plage qui répondent à une condition donnée. Les critères de cette fonction sont limités au texte ou aux 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 des cellules.

COUNTIF

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 afin qu’elle puisse être utilisée dans d’autres classeurs et transférée vers d’autres ordinateurs.

Comment créer une fonction définie par l’utilisateur

Voici les étapes à suivre pour créer une fonction définie par l’utilisateur pour compter la couleur des cellules :

  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. Ensuite, écrivez le script suivant

  3. Fermez la fenêtre VBE pour revenir à Excel.

  4. Pour tester la fonction UDF, créez des exemples de données qui contiennent une colonne de cellules de différentes 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és en bleu est 6.

    Appuyez sur Entrée et, dans la cellule F2, le résultat est 6. Cela signifie que le nombre de cellules avec la couleur de cellule bleue est de 6 cellules

  2. Vous pouvez effectuer des tests à l’aide d’autres couleurs. Modifiez la couleur de la cellule F1 avec la couleur souhaitée dans les données à l’aide de lacouleur de remplissaged’accueil>.

    Vous pouvez également tester une autre couleur. Modifiez la couleur de la cellule F1 avec la couleur souhaitée dans les données à l’aide de Format Painter pour obtenir la même couleur

  3. Vous pouvez également compresser l’UDF pour 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 classeur

    a. Sélectionnez Fichier, puis Enregistrez sous. (Sélectionnez Parcourir si nécessaire.)

    b. Sélectionnez Excel Add-In (.xlam) comme format et donnez un nom au fichier, tel que CountCcolor.

    Remarque

    Vous pouvez enregistrer votre fichier Add-In n’importe où. Mais pour qu’il soit répertorié comme Add-In dans votre programme Excel, enregistrez-le à l’emplacement par défaut. Dans Windows 7, l’emplacement par défaut pour toute 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 Add-Ins en sélectionnant Compléments Excel pour Excel 2013 et versions ultérieures sous l’onglet Développeur . (Compléments sur Excel 2010.)

    c. Dans la boîte de dialogue Compléments , sélectionnez Parcourir. Dans la boîte de dialogue Add-In, cliquez sur Le bouton Parcourir pour afficher la boîte de dialogue Parcourir.

    d. Accédez à l’emplacement de fichier où le fichier Add-In est enregistré (par exemple, un lecteur USB ou un dossier cloud). Choisissez le fichier, puis sélectionnez Ouvrir.

    e. Dans la boîte de dialogue Add-Ins, vérifiez que la case à cocher du complément est désactivée. Puis sélectionnez OK. Dans la boîte de dialogue Add-Ins, vérifiez que la case à cocher du complément est désactivée. Ensuite, sélectionnez OK.

La fonction UDF Count Cell Color est installée et prête à être utilisée. Vous pourrez accéder à cette fonction à tout moment en plaçant votre curseur dans n’importe quelle cellule de la feuille de calcul et en tapant :

=CountCcolor(range_data,criteria)

Exclusion de contenu communautaire Solutions

MICROSOFT CORPORATION ET/OU SES FOURNISSEURS RESPECTIFS NE FONT AUCUNE REPRÉSENTATION SUR L’ADÉQUATION, LA FIABILITÉ OU LA PRÉCISION DES INFORMATIONS ET DES GRAPHIQUES CONNEXES CONTENUS ICI. TOUTES CES INFORMATIONS ET GRAPHIQUES CONNEXES SONT FOURNIS « EN L’ÉTAT » SANS GARANTIE DE QUELQUE NATURE QUE CE SOIT. MICROSOFT ET/OU SES FOURNISSEURS RESPECTIFS DÉMENTENT PAR LA PRÉSENTE TOUTES LES GARANTIES ET CONDITIONS RELATIVES À CES INFORMATIONS ET GRAPHIQUES CONNEXES, Y COMPRIS TOUTES LES GARANTIES IMPLICITES ET CONDITIONS DE QUALITÉ MARCHANDE, L’ADÉQUATION À UN BUT PARTICULIER, L’EFFORT PROFESSIONNEL, LE TITRE ET LA NON-VIOLATION. VOUS ACCEPTEZ SPÉCIFIQUEMENT QU’EN AUCUN CAS MICROSOFT ET/OU SES FOURNISSEURS NE SOIENT TENUS RESPONSABLES DES DOMMAGES DIRECTS, INDIRECTS, PUNITIFS, INCIDENTS, SPÉCIAUX, CONSÉCUTIFS OU DES DOMMAGES ÉVENTUELS, Y COMPRIS, SANS LIMITATION, LES DOMMAGES POUR PERTE D’UTILISATION, DE DONNÉES OU DE BÉNÉFICES, RÉSULTANT DE L’UTILISATION OU DE L’INCAPACITÉ D’UTILISER LES INFORMATIONS ET LES GRAPHIQUES CONNEXES CONTENUS DANS CET ARTICLE, QU’IL S’AGISSE D’UN CONTRAT, DÉLICTUEL, NÉGLIGENCE, RESPONSABILITÉ STRICTE OU AUTRE, MÊME SI MICROSOFT OU L’UN DE SES FOURNISSEURS A ÉTÉ INFORMÉ DE LA POSSIBILITÉ DE DOMMAGES-INTÉRÊTS.