Le nombre de cellules par couleur de cellule spécifique à l’aide de VBA

Le support d'Office 2003 a pris fin

Microsoft a mis fin au support d'Office 2003 le 8 avril 2014. Cette modification a affecté vos mises à jour logicielles et options de sécurité. Découvrez les implications de ce changement à votre niveau et la marche à suivre pour rester protégé.

IMPORTANT : Cet article est issu d'une traduction automatique réalisée par un logiciel Microsoft et non par un traducteur professionnel. Cette traduction automatique a pu aussi être révisée par la communauté Microsoft grâce à la technologie Community Translation Framework (CTF). Pour en savoir plus sur cette technologie, veuillez consulter la page http://support.microsoft.com/gp/machine-translation-corrections/fr. Microsoft vous propose en effet des articles traduits par des professionnels, des articles issus de traductions automatiques et des articles issus de traductions automatiques révisées par la communauté Microsoft, de manière à ce que vous ayez accès à tous les articles de notre Base de connaissances dans votre langue. Il est important de noter que les articles issus de la traduction automatique, y compris ceux révisés par la communauté Microsoft, peuvent contenir des erreurs de vocabulaire, de syntaxe ou de grammaire. Microsoft ne pourra être tenu responsable des imprécisions, erreurs, ainsi que de tout dommage résultant d’une traduction incorrecte du contenu ou de son utilisation par les clients.

La version anglaise de cet article est la suivante: 2815384

À propos de l'auteur :

MVPCet article est fourni par les MVP Raddini Rahayu. Microsoft est te remercie que MVP proactive de partager leur expérience professionnelle avec d’autres utilisateurs. L’article doit être validée sur Site de Web de MVP ou blog une version ultérieure.
Symptômes
Dans formule de Microsoft Excel, nous savons que dans la catégorie statistiques, il existe une fonction qui compte le nombre de cellules dans une plage qui répondent à une condition donnée, appelée Nb.Si. Les critères de cette fonction peuvent être formatés en tant que texte ou numéros. Mais, en fait, il peut s'agir non seulement de texte ou nombre, mais également de couleurs de cellule. Ensuite, comment nous pouvons obtenir les résultats avec ces critères alors que la fonction Nb.Si ne peut pas être les solutions.


Résolution
Par contre, sans utiliser la fonction Nb.Si , nous pouvons toujours obtenir les résultats à l'aide de VBA. Avec VBA, nous pouvons créer une FDU (fonction définie par l'utilisateur) et l'enregistrer dans un fichier afin qu'il puisse être utilisé à chaque classeur et d'autres ordinateurs.


Que faire
Ici les étapes pour créer le nombre de cellules couleur UDF :

  1. Ouvrir Microsoft Excel Appuyez sur ALT + F11. Pour afficher les Éditeur de Visual Basic fenêtre.
  2. Sur Insérer menu, sélectionnez Module Pour créer un module. Puis écrire le script suivant :
    Function CountCcolor(range_data As range, criteria As range) As Long    Dim datax As range    Dim xcolor As Longxcolor = criteria.Interior.ColorIndexFor Each datax In range_data    If datax.Interior.ColorIndex = xcolor Then        CountCcolor = CountCcolor + 1    End IfNext dataxEnd Function

  3. Fermez la fenêtre VBE et revenir à Excel.
  4. Pour tester la FDU, créez des données d’exemple, ou vous pouvez télécharger cet exemple de fichier ici.
  5. Dans la cellule D3, pour écrire la fonction : = CountCcolor(range_data, critères)
    dans range_data, argumen, sélectionnez la cellule C2 à C51
    dans l’argumen de critères, sélectionnez la cellule F1


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


  7. Vous pouvez également tester une autre couleur. Modifier la couleur de cellule F1 avec n’importe quelle couleur que vous souhaitez à partir des données Copier le format Pour obtenir la même couleur.


  8. Vous pouvez également choisir la FDU, afin que la fonction peut être utilisée dans un autre classeur et machine. Veuillez suivant que cette procédure :


    Étape 1: Enregistrer le classeur

    1. Remplir le nom que vous souhaitez nommé à la Nom de fichier zone. Ici je le nom Nombre de couleur de la cellule.
    2. Pour le type de fichier, cliquez sur Complément Excel (.xlam) format.



      Remarque: Vous pouvez enregistrer votre fichier n’importe où que vous le souhaitez. Mais si vous le souhaitez sur Excel intégrée, vous devez l’enregistrer dans l’emplacement par défaut. Sur un ordinateur avec un système d’exploitation Windows 7, l’emplacement par défaut pour toutes les versions de Microsoft Excel est : C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns


    Étape 2: Installer le complément

    1. Ouvrir Microsoft Excel sur l’ordinateur que vous souhaitez installer le complément ouvert Modules complémentaires boîte de dialogue en cliquant sur Macro complémentaire sur le Développeur onglet.
    2. Sur le Macro complémentaire boîte de dialogue, cliquez sur Parcourir Ce bouton Parcourir boîte de dialogue s’affiche.


    3. Aller pour l’emplacement des fichiers de ce fichier est enregistré. Choisissez le fichier, puis cliquez sur Ouvrir.
    4. Sur le Modules complémentaires boîte de dialogue Assurez-vous que la case à cocher complément est non contrôlé. Puis cliquez sur OK.

Maintenant la FDU de couleur de cellule Count a installé et prêt à être utilisé.

Exclusion de contenu communautaire Solutions

MICROSOFT CORPORATION ET/OU SES FOURNISSEURS RESPECTIFS NE FONT AUCUNE DÉCLARATION SUR LA PERTINENCE, DE FIABILITÉ OU L’EXACTITUDE DES INFORMATIONS ET DES ÉLÉMENTS GRAPHIQUES ASSOCIÉS CONTENUS DANS LE PRÉSENT DOCUMENT. TOUTES CES INFORMATIONS ET ÉLÉMENTS GRAPHIQUES ASSOCIÉS SONT FOURNIS « EN L’ÉTAT » SANS GARANTIE D’AUCUNE SORTE. MICROSOFT ET/OU SES FOURNISSEURS RESPECTIFS EXCLUENT TOUTES LES GARANTIES ET CONDITIONS RELATIVES À CES INFORMATIONS ET LES GRAPHIQUES ASSOCIÉS, NOTAMMENT TOUTE GARANTIE IMPLICITE DE QUALITÉ MARCHANDE, D’ADÉQUATION À UN USAGE PARTICULIER, LOIS ET D’ABSENCE DE CONTREFAÇON. VOUS RECONNAISSEZ SPÉCIFIQUEMENT QU’EN AUCUN CAS MICROSOFT ET/OU SES FOURNISSEURS EST RESPONSABLES POUR DES DOMMAGES DIRECTS, INDIRECTS, PUNITIFS, OU ACCESSOIRES, SPÉCIALES, NI LES DOMMAGES QUELCONQUES Y COMPRIS, SANS LIMITATION, LES DOMMAGES POUR PERTE D’UTILISATION, DE DONNÉES OU DE BÉNÉFICES, DÉCOULANT D’OU DANS N’IMPORTE QUEL LIÉS À L’UTILISATION D’OU DE L’INCAPACITÉ À UTILISER LES INFORMATIONS ET LES ÉLÉMENTS GRAPHIQUES ASSOCIÉS CONTENUS DANS LE PRÉSENT DOCUMENT , BASÉ SUR LE CONTRAT, RESPONSABILITÉ DÉLICTUELLE, NÉGLIGENCE, RESPONSABILITÉ STRICTE OU AUTREMENT, MÊME SI MICROSOFT OU L'UN DE SES FOURNISSEURS A ÉTÉ AVERTI DE L'ÉVENTUALITÉ DE DOMMAGES.

Avertissement : Cet article a été traduit automatiquement.

Propriétés

ID d'article : 2815384 - Dernière mise à jour : 05/15/2016 19:28:00 - Révision : 3.0

Microsoft Office Excel 2003, Microsoft Office Excel 2007, Microsoft Excel 2010, Microsoft Excel 2013, Excel 2016

  • kbmvp kbcommunity kbstepbystep kbmt KB2815384 KbMtfr
Commentaires