max.lander
XLDnaute Occasionnel
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.
Pouvez-vous me dire qu'est ce qui ne tourne pas rond ?
Merci par avance.
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.
VB:
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 SubPouvez-vous me dire qu'est ce qui ne tourne pas rond ?
Merci par avance.