Worksheet function

Bonjour, voici ma procédure :

Sheets("Graphiques_FP").Activate

Range("Y27").Value = Year(Now())

Range("Y28").Value = Year(Now()) + 1

Range("Y29").Value = Year(Now()) + 2

Range("Y30").Value = Year(Now()) + 3

Range("Y31").Value = Year(Now()) + 4

Range("Y32").Value = Year(Now()) + 5

dernligne = Sheets("Données_Fi_FP").Range("I" & Rows.Count).End(xlUp).Row

Range("Z32").Value = Application.WorksheetFunction.SumProduct((Year(Sheets("Données_Fi_FP").Range("K11:K" & dernligne)) = 2020) * Sheets("Données_Fi_FP").Range("H11:H" & dernligne))

Range("Z32").Value = Application.WorksheetFunction.SumProduct((Year(Sheets("Données_Fi_FP").Range("K11:K" & dernligne)) = 2023) * Sheets("Données_Fi_FP").Range("H11:H" & dernligne))

Range("Z33").Value = Application.WorksheetFunction.SumIf(Sheets("Données_Fi_FP").Range("K11:K" & dernligne), "", Sheets("Données_Fi_FP").Range("H11:H" & dernligne))

Le sumif marche parfaitement bien mais pas du tout le sumproduct

Quelqu'un a t-il une idée ?

Merci beaucoup par avance.

Cordialement.

Ils me mettent incompatibilité de type, je ne vois pas pourquoi.

S'il vous plait si quelqu'un passe par là je lui serais d'une grande reconnaissance.

Personne n'a d'idée je suis bloqué depuis ce matin je comprends pas ...

Bonjour

Le fichier ne contient pas de code VBA ....

A la lecture de ce que vous postez, changez cette ligne :

dernligne = Sheets("Données_Fi_FP").Range("I" & Sheets("Données_Fi_FP").Rows.Count).End(xlUp).Row

Cordialement

Merci Dan mais cette ligne fonctionnait bien et avec votre modification cela ne fonctionne malheuresement toujours pas

Merci beaucoup tout de même

Voici le fichier en xlsm

Re

vous désirez faire cela en utilisant uniquement la formule sommeprod ??