Discussion :

[Zoulouseb]

Bonjour a tous,

je cherche depuis quelques jours à mettre une formule excel e vba application

a l'heure actuelle je fais ceci

Code :

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

1
2
3
4
Sheets("validcde").Range("h6").FormulaLocal = _
            "=SOMMEPROD(('" & Sheets("parametre").Range("b22").Value & "[" & Sheets("parametre").Range("b28").Value & ".xls]lpaiement'!$A$3:$A$28=" & numcde & ")*'" & Sheets("parametre").Range("b22").Value & "[" & Sheets("parametre").Range("b28").Value & ".xls]lpaiement'!$C$3:$C$28)"
paye = Sheets("validcde").Range("h6").Value
Sheets("validcde").Range("h6").Value = paye

mais je suppose qu'il y a moyen de faire ceci en une opération du style

Sheets("validcde").range("h6").value = application.evaluate("......

j'ai lu que je devrais passer par application.evaluate
mais ceci me donne systématiquement un message d'erreur "incompatibilité de type"

est ce que quelqu'un pourrais me dire quel est mon erreur
d'avance merci

[SfJ5Rpw8]

Bonjour,

voir :

Code :

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

Application.WorksheetFunction.SumProduct(....

[Zoulouseb]

bonjour, et déjà merci de votre aide
voila le code que j'ai mis

Code :

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

  Sheets("validcde").Range("h6").Value = Application.WorksheetFunction.SumProduct(Sheets("parametre").Range("b22").Value & "[" & Sheets("parametre").Range("b28").Value & ".xls]lpaiement'!$A$3:$A$30000=" & numcde & ")*'" & Sheets("parametre").Range("b22").Value & "[" & Sheets("parametre").Range("b28").Value & ".xls]lpaiement'!$C$3:$C$30000)")

mais il me dit erreur 1004
impossible de lire la propriété sumproduct de la classe worksheetfunction

[SfJ5Rpw8]

a oui c'est moins simple que je pensais ...

tiens il y as cela qui marche avec evaluate :

Code :

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

Debug.Print Application.WorksheetFunction.SumProduct(Evaluate("([TOTO.xlsx]lpaiement!$A$2:$A$6=12)*([TOTO.xlsx]lpaiement!$B$2:$B$6)"))