Comment compter les cellules contenant un texte spécifique ainsi que la mise en forme ou la couleur de la police dans Excel ?
Il est peut-être facile pour vous de compter le nombre de cellules qui répondent à une seule condition, par exemple compter toutes les cellules contenant un texte ou une mise en forme/Couleur de remplissage spécifiques. Cependant, savez-vous comment compter les cellules répondant à plusieurs conditions ? Par exemple, compter le nombre de cellules contenant à la fois un texte et une mise en forme/Couleur de remplissage spécifiques. Cet article vous présente la solution.
Compter les cellules contenant un texte spécifique et Couleur de remplissage à l’aide d’un code VBA
Compter les cellules contenant un texte spécifique et Couleur de la police à l’aide d’un code VBA
Compter les cellules contenant un texte spécifique et Couleur de remplissage à l’aide d’un code VBA
Supposons que vous disposiez d’un tableau tel que celui illustré ci-dessous. Pour compter les cellules de la colonne B en fonction du texte et de la couleur de remplissage de la cellule E2, appliquez le code VBA suivant.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module, puis copiez le code VBA ci-dessous dans la fenêtre du module.
Code VBA : compter les cellules contenant un texte spécifique et Couleur de remplissage
Sub CountFillColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim Rows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubRemarque : dans le code, B2:B9 est la plage dans laquelle vous comptez les cellules, et E2 contient le texte ainsi que la mise en forme ou la couleur de remplissage sur la base desquels le décompte est effectué. Vous pouvez adapter ces éléments à vos besoins.
3. Appuyez sur la touche F5 pour exécuter le code. La boîte de dialogue Kutools pour Excel s’ouvre alors : veuillez sélectionner une cellule pour y insérer le résultat, puis cliquez sur le bouton OK. Voir la capture d’écran :
Le résultat du comptage s’affiche instantanément dans la cellule sélectionnée.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Compter les cellules contenant un texte spécifique et Couleur de la police à l’aide d’un code VBA
Pour compter les cellules de la plage B2:B9 en fonction du texte et de la couleur de police de la cellule E2, procédez comme suit.
1. Ouvrez la fenêtre Microsoft Visual Basic pour Applications en appuyant sur les touches Alt + F11.
2. Dans Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module, puis copiez le code VBA ci-dessous dans la fenêtre du module.
Code VBA : compter les cellules contenant un texte spécifique et Couleur de la police
Sub CountFontColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim xRows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubRemarque : dans le code, B2:B9 correspond à la plage dans laquelle vous comptez les cellules, et E2 représente le critère selon lequel vous effectuez le décompte. Vous pouvez les adapter à vos besoins.
3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue Kutools pour Excel s’ouvre alors : veuillez sélectionner une cellule où placer le résultat, puis cliquez sur le bouton OK. Voir la capture d’écran :
Vous obtiendrez le résultat tel qu’illustré dans la capture d’écran ci-dessous :
Articles associés :
- Comment compter le nombre de cellules comprises entre deux valeurs ou deux dates dans Excel ?
- Comment compter les cellules contenant un texte spécifique dans une sélection sous Excel ?
- Comment compter les cellules contenant du texte ou une partie spécifique de texte dans Excel ?
- Comment compter le nombre d’occurrences d’un mot spécifique dans une cellule ou une plage de cellules sous Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels