Fonction avec plusieurs conditions

Résolu
Laeti3112 -  
 Laeti3112 -
Bonjour,

J'utilise la fonction suivante afin de compter le nombre de cellules à fond rouge contenant le mot "DIVERS". Seulement voilà, je souhaiterais ajouter d'autres mots en plus de "DIVERS" dans la même fonction, c'est à dire je voudrais compter le nombre de cellules à fond rouge contenant le mot "DIVERS", et le mot "ASSOCIATION" et le mot "SOCIETE"...(donc écrire plusieurs If C.Value=). Mais je n'y arrive pas...

Voici la fonction que j'utilise :

Function CptTxtDivers(champ As Range)
Application.Volatile
Dim C, temp
For Each C In champ
If C.Value = "DIVERS" And C.Interior.Color = RGB(255, 0, 0) Then
temp = temp + 1
End If
Next C
CptTxtDivers = temp
End Function

Dans ma cellule :
=CptTxtDivers(C7:C319)

Merci pour votre aide
Cordialement.
A voir également:

2 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonsoir,

If (C.Value = "DIVERS"  Or C.Value = "SOCIETE" Or C.Value = "ASSOCIATION") And C.Interior.Color = RGB(255, 0, 0) Then


Cdlmnt
Via
1
Laeti3112
 
Merci pour votre collaboration et votre aide cher Via,
votre réponse m'a permis de faire mon calcul!

Cordialement

Laetitia++++
0