Discussion :

[Novice72]

Bonjour à toutes et à tous,

J'ai une plage d'un tableau ( que je considère à dimension fixe ici ) par exemple F7:Q18.
Sur cette plage, il n'y a malheureusement pas que des nombres ( ce serait trop simple ). Il y a aussi des croix ( représentées pas des "X" ) et aussi des cellules vides ( vierges ).
Si je fais moyenne(F7:Q18) , ma moyenne est faussée car elle considère les cellules vides et les "X" comme 0.

Voici donc ma question : Comme récupérer uniquement les valeurs d'une plage afin d'en calculer une moyenne ( en VBA ) ?



Merci d'avance.

Novice72

[Philippe Tulliez]

Bonjour,

Si je fais moyenne(F7:Q18) , ma moyenne est faussée car elle considère les cellules vides et les "X" comme 0.

Je suis très étonné de ce que tu écris car la fonction native d'excel MOYENNE ne prend justement pas en compte les données alphanumériques ni les cellules vides dans son calcul.

En vba

Code :

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

MsgBox Evaluate("=AVERAGE(H2:H9)")

ou

Code :

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

MsgBox Application.WorksheetFunction.Average(Range("H2:H9"))

[Nicolas JACQUIN]

Bonjour,

Code :

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

MsgBox Application.WorksheetFunction.Average(Range("F7:Q18"))

A bientôt

[Novice72]

Merci à vous 2 Philippe et Nicolas,

Je ne comprends pas ce qui j'ai fais avant. Maintenant ça fonctionne.

Encore merci.

NOVICE72

[Novice72]

(re)bonjour,

Pouvez-vous me dire pourquoi ce code ne fonctionne pas ?

Code :

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

1
2
 
MsgBox Application.WorksheetFunction.Average(Range(cells(7,6),cells(8,17))

En effet, j'ai juste remplacé ("F7:Q18") par ( cells(7,6),cells(8,17) ) comme je le fais souvent.

quand je verrai mon erreur de syntaxe, le but sera de remplacer 8 et 17 par "j" et "p" afin d'avoir un tableau variable tout en maintenant le coin haut gauche fixe.


Merci d'avance.


NOVICE72

[Nicolas JACQUIN]

Code :

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

MsgBox Application.WorksheetFunction.Average(Range(Cells(7, 6), Cells(8, 17)))

le nombre de parenthèse