Réaliser une moyenne si en VBA

Bonjour à tous.

Je suis à la recherche d'une solution pour calculer, dans une cellule, une moyenne sous certaine condition (Comme la formule moyenne.si dans une feuille de calcul "classique").

Pour cela, j'ai trouvé la solution ci dessous:

Sheets("Histo Z24500").Cells(i, Col).Value = WorksheetFunction.AverageIf(Sheets("Page1_1 (2)").Range("W17:W" & der), Sheets("Histo Z24500").Cells(i, 1) & Sheets("Histo Z24500").Cells(i, 2), Sheets("Page1_1 (2)").Range("V17:V" & der))

Malheureusement, à l’exécution de la macro, il s'arrête sur cette ligne et indique :

Impossible de lire la propriété AverageIf de la classe WorksheetFunction.

Je pense que je n'ai pas saisi tout à fait le fonctionnement des fonction "WorksheetFunction".

Si quelqu'un peut m'éclairer un peu à ce sujet.

Merci d'avance.

Onafe57.

Bonjour

Le mieux serait de voir le fichier mais cette instruction, c'est quoi exactement --> Sheets("Histo Z24500").Cells(i, 1) & Sheets("Histo Z24500").Cells(i, 2)

Il y a deux valeurs de critères à prendre en considération pour faire la moyenne de V17 à Vx ?

Crdlt

Rechercher des sujets similaires à "realiser moyenne vba"