Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel WorksheetFunction.MEDIAN insensible au filtre

WorksheetFunction.MEDIAN insensible au filtre

2 réponses
Avatar
Le Nordiste
Bonjour,

J'ai le code ci-dessous pour extraire dans l'ordre la valeur maximale,
la moyenne et la m=E9diane dans la colonne 4 parmi les r=E9sultats d'un
filtre :

With Sheets("Demandes").AutoFilter.Range
intMaxi =3D WorksheetFunction.Subtotal(4,
Intersect(.Columns(4), .Cells))
dblMoyenne =3D WorksheetFunction.Subtotal(1,
Intersect(.Columns(4), .Cells))
dblMedian =3D
Application.WorksheetFunction.Median(Intersect(.Columns(4), .Cells))
End With

Pas de Pb pour les 2 premiers mais par contre la mediane semble ne pas
r=E9agir au filtre.
OP=F9 est mon erreur ou quel est le probl=E8me et la mani=E8re de le
r=E9soudre.


Remerciements anticip=E9s.

Le Nordiste
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Essaie :
dblMedian Application.WorksheetFunction.Median(Intersect(.Columns(4), _
.SpecialCells(xlCellTypeVisible)))
Cordialement.
Daniel
"Le Nordiste" a écrit dans le message de
news:
Bonjour,

J'ai le code ci-dessous pour extraire dans l'ordre la valeur maximale,
la moyenne et la médiane dans la colonne 4 parmi les résultats d'un
filtre :

With Sheets("Demandes").AutoFilter.Range
intMaxi = WorksheetFunction.Subtotal(4,
Intersect(.Columns(4), .Cells))
dblMoyenne = WorksheetFunction.Subtotal(1,
Intersect(.Columns(4), .Cells))
dblMedian Application.WorksheetFunction.Median(Intersect(.Columns(4), .Cells))
End With

Pas de Pb pour les 2 premiers mais par contre la mediane semble ne pas
réagir au filtre.
OPù est mon erreur ou quel est le problème et la manière de le
résoudre.


Remerciements anticipés.

Le Nordiste
Avatar
Le Nordiste
Merci Daniel,

C'est tout à fait cela que je cherchais, ça marche !!!!!!


Le Nordiste