Fonction countifs multi critere en VBA

Question

Nouveau dans le domaine du VB, je cherche à réaliser une fonction équivalente a NB.SI avec multicritère. concrètement, je souhaiterai que dans une plage de cellule, il ne compte que Mr dupont et que lorsque Mr dupont est dans une cellule verte. Je me suis inspiré bien entendu de nombreux exemple sur le web mais je n'arrive pas a conclure ma fonction (message d'erreur #VALEUR!) Voici ma fonction : Function countifcode(plagecel As Range, couleur As Range, nom As Range) Set feuille_1 = Worksheets(3) Application.Volatile ad = plagecel.Address critere = couleur.Interior.ColorIndex personne = nom.Value zz = Application.WorksheetFunction.CountIfs(ad, critere, sp) countifcode = zz End Function Bien entendu, les arguments de ma fonction sont bien renseigné dans l'ordre lorsque je tape ma fonction dans ma feuille excel (ex : =countifcode(B4:K7;F2;P4) où F2 est la couleur de reference et P4, la cellule contenant le nom de Mr DUPONT) D'avance merci pour votre aide Cordialement...

xorsankukai · Accepted Answer

Bonsoir lolo05 , le forum, Un essai. ...pas testé.... Option Explicit Function countifcode(plagecel As Range, c1 As Range, c2 As Range) Dim couleur, nom As String, cell As Range, compteur As Integer Application.Volatile couleur = c1.Interior.Color nom = c2.Value For Each cell In plagecel If cell.Interior.Color = couleur And cell.Value = nom Then compteur = compteur + 1 End If Next cell countifcode = compteur End Function plagelcel = ta plage (B4:K7 dans ton exemple) c1 = ta couleur (F2 dans ton exemple) c2 = ton nom (P4 dans ton exemple) la formule: =countifcode($B$4:$K$7;$F$2;$P$4) Cordialement...