Microsoft 365 Fonction CountIf suivant condition de valeur et de couleur

AIr-V

XLDnaute Junior
Bonjour,

J'aimerais pouvoir intégrer la fonction Countif dans mon programme qui me permettrait de compter le nombre de cellule identique en terme de valeur ET de couleur dans une colonne.
Je sais comment procéder pour trouver l'un OU l'autre mais pas les deux réunis.

Merci par avance pour votre aide; très belle journée. :) :)
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Alr-V,
En plus de Countif vous avez la fonction Countifs qui permet 127 conditions :
et en fançais :
 

AIr-V

XLDnaute Junior
Bonjour Sylvanu,

Merci pour ce retour. Je parlais plutôt de la fonction countif en VBA du type :
'If Application.CountIf(Range("F:F"), "valeur & couleur") > 0 Then

Sais-tu comment construire cette fonction dans mon programme?

Merci par avance.
 

job75

XLDnaute Barbatruc
Bonjour Alr-V, sylvanu,

Dès qu'on veut compter des couleurs il faut du VBA, voyez le fichier joint et cette fonction :
VB:
Function Nb_Texte_CouleurFond(plage As Range, cible As Range)
Application.Volatile
Dim r As Range, x$, coul&
Set r = Intersect(plage, plage.Parent.UsedRange)
If r Is Nothing Or CStr(cible) = "" Then Exit Function
x = LCase(CStr(cible))
coul = cible.Interior.Color
For Each r In r
    If LCase(CStr(r)) = x And r.Interior.Color = coul Then Nb_Texte_CouleurFond = Nb_Texte_CouleurFond + 1
Next
End Function
A+
 

Pièces jointes

  • Nb_Text_CouleurFond(1).xlsm
    17.2 KB · Affichages: 7

AIr-V

XLDnaute Junior
Salut job75,

Merci beaucoup! Très utile cette fonction :)

Existe-t-il également une possibilité d'extraire les doublons dans une colonne en fonction de la valeur ET de la couleur de chacune des cellules?
En effet, il est simple de le faire lorsqu'il s'agit uniquement de valeurs, mais un peu plus complexe à trouver lorsqu'il s'agit d'intégrer la condition de couleur de remplissage de la cellule.
 

Discussions similaires

Statistiques des forums

Discussions
312 023
Messages
2 084 716
Membres
102 636
dernier inscrit
TOTO33000