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 :
- Ouvrez Microsoft Excel, puis appuyez sur ALT + F11 pour afficher la fenêtre Visual Basic Editor (VBE).
- 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
- Fermez la fenêtre VBE pour revenir à Excel.
- Pour tester la FDU, créez un exemple de données qui contient une colonne de cellules dans diverses couleurs.
- 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.
- 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.
- 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 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 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.
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)