VBA -->SommeProd + Noms dynamiques

[max.lander]

Bonjour à tous,

J'essaye d'utiliser en VBA la fonction sommeprod pour récupérer un numéro de ligne quand la formule est vraie. L'information est stockée dans une variable nommée "X" mais impossible d'aboutir à un résultat convenable. (Cf.fichier)

Les plages de mes cellules sont nommées de façon dynamique.

Sub Coloration()
Dim x As Integer
For Each ele In Sheets("Planer").Range("C7:I35")


    Projet = Range("A" & ele.Row)

    Jour = Cells(5, ele.Column)
    MsgBox (Jour)
   
    formule = "=sumproduct((""" & Projet & """=Manifestations)*(" & CLng(CDate(Jour)) & ">=Début)*(Fin>=" & CLng(CDate(Jour)) & ")*row(Opérateur))"
    x = Evaluate(formule)
   
    MsgBox (x)
   
   Next
  

End Sub

Pouvez-vous me dire qu'est ce qui ne tourne pas rond ?


Merci par avance.

 

[JCGL]

Bonjour à tous,

Ceci te retournera VRAI

formule = "=sumproduct((""" & PROJET & """=Manifestations)*(" & CLng(CDate(JOUR)) & ">=Début)*(" & CLng(CDate(JOUR)) & Fin >= ")*row(Opérateur))"

A+ à tous

 

[max.lander]

Salut JCGL,

Merci pour ton aide mais le numéro de ligne ne remonte pas j'ai systématiquement -1