Discussion :

[miopie]

bonjour,
voila j'ai un petit soucis ,
lorsque j'applique ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveCell.Offset(0, 2).FormulaR1C1 = "=SUMPRODUCT((data!C3>=tableau!R[1]C[-1])*(data!C3<=tableau!RC[-1])*(data!C1<>"""")*1)"

la formule va bien ce mettre dans la bonne cellule et ca fonctionne
le probleme est que j'ai beaucoup de cellule avec cette formule et ca me ralentit excel enormement car il recalcul en temp reel dès la moindre modif.
donc j'ai injecter uniquement la valeur trouver et non la formule.
voici le code qui ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveCell.Offset(0, 2).FormulaR1C1 = "=SUMPRODUCT((data!C3>=tableau!R[1]C[-1])*(data!C3<=tableau!RC[-1])*(data!C1<>"""")*1)"

cela me renvoie #valeur.
pour info
ma cellule selectionner est F74
ma cellule ou je met ma valeur est H74 => ActiveCell.Offset(0, 2)
ma cellule 1ere matrice est G75 => tableau!R[1]C[-1]
ma cellule 2eme matrice est G74 => tableau!RC[-1])

je ne voi pas ou est l'erreur
merci de votre aide

[miopie]

bonjour,

ca y est j'ai trouvé
en fait ca ne pouvait pas marcher car je comparait une cellue C3 au lieu de la colonne C:C, de plus la fonction n'a pas lair de vouloir prendre les RC j'ai été obligé de mettre l'adresse de la cellule
voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Offset(0, 2).Value = Evaluate("=sumproduct((data!C:C>=G64)*(data!C:C<=G63)*(data!A:A<>"""")*1)")

maintenant j'en ai une autre sur le meme principe mais un peu plus longue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Offset(1, 2).Value = Evaluate("=SUMPRODUCT((data!X:X>=G64)*(data!X:X<=G63)*(data!A:A<>"""")*1),((data!C:C>=G64)*(data!C:C<=G63)*(data!A:A<>"""")*1)")

et bien évidement ca ne fonctionne pas.
les deux parties

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Evaluate("=SUMPRODUCT((data!X:X>=G64)*(data!X:X<=G63)*(data!A:A<>"""")*1)")

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Evaluate("=SUMPRODUCT),((data!C:C>=G64)*(data!C:C<=G63)*(data!A:A<>"""")*1)")

prise a part elle fonctionnent mais ensemble non

je ne sai pas encore pourquoi

si quelqu'un a une idée je suis prenneur

[miopie]

ca y est j'ai trouvé
j'ai oublier de mettre une parenthese

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Offset(1, 2).Value = Evaluate("=SUMPRODUCT((data!X:X>=G64)*(data!X:X<=G63)*(data!A:A<>"""")*1,((data!C:C>=G64)*(data!C:C<=G63)*(data!A:A<>"""")*1))")

j'ai mis 2 jours pour trouver mais j'y suis arriver sans aide