Erreur d'incompatibilité de type dans une macro

Bonjour à tous,

Je débute dans la programmation. Je suis en ce moment bloqué par une erreur d'incompatibilité de type. J'explique la situation. J'ai un tableau excel dans lequel des évenements sont classés par catégorie (nomdept(i)) et je voudrais compter le nombre d'évenement par catégorie. Je les compte également en fonction d'autres parametres, mais ne rencontrant pas de probleme avec eux, je ne vais pas les mentionner.

voici le code

Sub totalnbsc()
' blabla
    Dim i As Integer
    Dim j As Integer
    Dim deptnom(7) As String
     For j = 1 To 6
    deptnom(j) = Worksheets("config").Cells(4 + j, 2)
    Next j
    i = Evaluate("sumproduct(((follow_up!D4:D12000)=(deptnom(2)))*1)")
End Sub

C'est la dernière ligne qui pose probleme. Pourtant lorsque j'éxécute pas à pas, je peux voir que les variables deptnom(i) prennent les bonnes valeurs.

Si au lieu de deptnom(2) je met une chaine de caractere, ça fonctionne.

   i = Evaluate("sumproduct(((follow_up!D4:D12000)=""categorie"")*1)")

De la meme maniere, si je fait reférence à la cellule a partir de laquelle deptnom(2) a pris sa valeur, ça fonctionne aussi:

    i = Evaluate("sumproduct(((follow_up!D4:D12000)=((Config!B6)))*1)")

Savez vous comment je pourrais faire marcher cette formule en utilisant deptnom(i), j'en aurais besoin pour faire une boucle. Je pense qu'il me manque un pitit truc de rien du tout, mais là malgré mes recherches je n'arrive plus à avancer.

Merci de votre aide,

Bon week end

Didier

Bonjour,

essaie ainsi :

i = Evaluate("SUMPRODUCT(((follow_up!D4:D12000)=" & """" & deptnom(2) & """" & ")*1)")

Bonne journée

Ca marche au poil.

Merci beaucoup