Impossible de lire la propriété Average de la classe...

Bonjour à tous,

J'ai l'erreur suivante qui apparaît : "Impossible de lire la propriété Average de la classe WorksheetFunction", et je ne sais pas comment la gérer...

Je vous explique ma situation :

D'abord je mets en place la plage de valeurs dont je vais avoir besoin pour faire mon calcul de moyenne :

Set plage = Range("G15:H" & nbLignes) 'nbLignes c'est la dernière ligne non vide de mon tableau 

Ensuite je veux calculer la moyenne et mettre sous le format "0.0" donc je fais :

moyenne = Format(WorksheetFunction.average(plage),"##0.0")

Le problème est qu'il n'y a pas de données dans cette plage... donc l'erreur '1004' apparaît.

Mon idée serait de faire une condition en disant que si la plage est "vide" (=n'a pas de données) alors on ne calcule pas, sinon on calcule la moyenne... Qu'en pensez-vous ?

Si vous avez une idée pour coder cette condition je suis preneuse ! Si vous avez d'autres idées que celle là je suis preneuse aussi...

MERCI !

Re-bonjour à tous,

J'ai finalement trouvé une solution. Si ça intéresse certains, voilà le petit code à rajouter :

If Application.CountA(plage) = 0 Then
MsgBox ("La plage est vide")
Else: MsgBox ("La plage contient au moins une valeur")
End If

Bonne journée !