VBA -->SommeProd + Noms dynamiques

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.

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 Sub


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


Merci par avance.
 

Pièces jointes

  • OP 7.xlsm
    32.7 KB · Affichages: 33

Membres actuellement en ligne

Statistiques des forums

Discussions
314 948
Messages
2 114 649
Membres
112 206
dernier inscrit
salah zabi