OVH Cloud OVH Cloud

TCD-Médiane

6 réponses
Avatar
Apprenti.xls
Bonjour à tous !

Petite question du jour qui me trotte dans la tête depuis un petit moment :
Existe-t-il une possibilité immédiate de calculer une médiane dans un TCD ?

Si ce n'est pas possible, j'utilise déjà correctement la fonction SOMMEPROD.
Pas de problème de ce côté là, mais je souhaiterais un petit coup de main
pour modifier le menu d'un TCD avec une petite routine ... Si l'un d'entre
vous s'est déjà penché sur le problème, la solution m'intéresse.

Je vous remercie par avance de votre coopération.
Bonne année à tous et longue vie au forum !

J'apprends, j'apprends ...

6 réponses

Avatar
Apprenti.xls
Personne ne semble être en mesure de répondre pour le moment, dirait-on. ;-(
Petit plus à ma requête : si un petit code VBA pouvait me venir en aide,
j'aimerais bien ajouter une fonction Premier décile et une autre Dernier
décile à la place des fonctions moyenne, mini et maxi ...

Je ne sais vraiment pas si c'est possible et comment l'enregistrer (.xla
peut-être, module de classe ?) , mais bon, on ne sait jamais ...

J'apprends, j'apprends ...

"Apprenti.xls" a écrit dans le message de news:
45b52afc$0$27368$
Bonjour à tous !

Petite question du jour qui me trotte dans la tête depuis un petit moment
:
Existe-t-il une possibilité immédiate de calculer une médiane dans un TCD
?

Si ce n'est pas possible, j'utilise déjà correctement la fonction
SOMMEPROD. Pas de problème de ce côté là, mais je souhaiterais un petit
coup de main pour modifier le menu d'un TCD avec une petite routine ... Si
l'un d'entre vous s'est déjà penché sur le problème, la solution
m'intéresse.

Je vous remercie par avance de votre coopération.
Bonne année à tous et longue vie au forum !

J'apprends, j'apprends ...



Avatar
Apprenti.xls
Re-bonjour à tous !

Après avoir recherché sur le forum des questions relatives à ce sujet, je me
suis rendu compte que je n'étais pas le seul à déjà avoir posé la question
...
Mais à chaque fois, les questions posées sont restées sans suite.
Aussi, recommencé-je.

Faut-il absolument s'exonérer du TCD pour pouvoir utiliser les fonctions
centiles en fonction de certains critères ?

Quelqu'un a bien du écrire un petit code pour y arriver ... Comme les
étiquettes pour les graphiques en nuages de points.
Si vous avez une idée sur la question, je suis preneur.

Je continue de chercher de mon côté bien évidemment et ne manquerait pas de
revenir poster si j'ai trouvé quelquechose/
J'apprends, j'apprends ...

"Apprenti.xls" a écrit dans le message de news:
45b67167$0$27406$
Personne ne semble être en mesure de répondre pour le moment, dirait-on.
;-(
Petit plus à ma requête : si un petit code VBA pouvait me venir en aide,
j'aimerais bien ajouter une fonction Premier décile et une autre Dernier
décile à la place des fonctions moyenne, mini et maxi ...

Je ne sais vraiment pas si c'est possible et comment l'enregistrer (.xla
peut-être, module de classe ?) , mais bon, on ne sait jamais ...

J'apprends, j'apprends ...

"Apprenti.xls" a écrit dans le message de
news: 45b52afc$0$27368$
Bonjour à tous !

Petite question du jour qui me trotte dans la tête depuis un petit moment
:
Existe-t-il une possibilité immédiate de calculer une médiane dans un TCD
?

Si ce n'est pas possible, j'utilise déjà correctement la fonction
SOMMEPROD. Pas de problème de ce côté là, mais je souhaiterais un petit
coup de main pour modifier le menu d'un TCD avec une petite routine ...
Si l'un d'entre vous s'est déjà penché sur le problème, la solution
m'intéresse.

Je vous remercie par avance de votre coopération.
Bonne année à tous et longue vie au forum !

J'apprends, j'apprends ...







Avatar
Modeste
Bonsour® Apprenti.xls avec ferveur ;o))) vous nous disiez :

Quelqu'un a bien du écrire un petit code pour y arriver ... Comme les
étiquettes pour les graphiques en nuages de points.


Oui... Oui...
par exemple : Excel 2002
C:Program FilesMicrosoft OfficeOffice 10Samples

Public resetcode As Boolean
Sub auto_open()
resetcode = True
End Sub

Sub AttachLabelsToPoints()
'Vérifie que la procédure ne s'exécute qu'une fois
'avant de rétablir le graphique
If resetcode = False Then
MsgBox "Rétablissez le graphique avant d'y appliquer les étiquettes ",
vbCritical
Exit Sub
End If
' Variables de dimension.
Dim Counter As Integer
Dim SourceWorksheet As Variant, xVals As Variant, xCell As Variant
Dim xLabel As Variant

' Ne pas mettre à jour l'écran pendant la procédure.
Application.ScreenUpdating = False

' Sélectionner le premier objet graphique (ChartObject) de la feuille
ActiveSheet.ChartObjects(1).Select

' Enregistrer la définition de la première série dans "xVals".
xVals = ActiveChart.SeriesCollection(1).Formula

' Ces lignes extraient le nom de la feuille de calcul source depuis xVals.
SourceWorksheet = Left(xVals, InStr(1, xVals, "!") - 1)
SourceWorksheet = Right(SourceWorksheet, Len(SourceWorksheet) - _
InStr(1, SourceWorksheet, "("))
If Left(SourceWorksheet, 1) = "," Then
SourceWorksheet = Right(SourceWorksheet, Len(SourceWorksheet) - 1)
End If

' Remplacer le nom de la feuille de calcul source par "xlSheet" pour que
' les recherches suivantes fonctionne si la feuille de calcul
' contient des virgules.
xVals = Application.Substitute(xVals, SourceWorksheet, "xlSheet")

' Traitement suplémentaire du nom xVals.
xVals = Right(xVals, Len(xVals) - InStr(1, xVals, ","))

' Si le graphique utilise des valeurs x hypothétiques afficher un
' message d'alerte
If Left(xVals, 1) = "," Then

' NOTE: les deux lignes suivantes doivent être entrées
' sur une seule ligne.
MsgBox "Ce graphique en nuage de points (XY) utilise des valeurs X
hypothétiques." & _
" La macro ne peut continuer."

' Quitter la sous routine si des valeurs x hypoothétiques sont
utilisées.
Exit Sub
End If

' Traitement suplémentaire du nom xVals.
xVals = Left(xVals, InStr(1, xVals, ",") - 1)

' Rendre à la feuille de calcul son nom d'origine
' en remplacement de "xlSheet".
xVals = Application.Substitute(xVals, "xlSheet", SourceWorksheet)

' Initialiser un compteur.
Counter = 1

' Pour chaque cellule de la plage xVals...
For Each xCell In Range(xVals)

' Lire la valeur de l'étiquette à côté de la valeur x en cours.
xLabel = xCell.Offset(0, -1).Value

' Associer une étiquette au point sur le graphique.
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
True

' Placer le texte ("Donnée1, par exemple)dans l'étiquette aassociée.
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
xLabel

' Incrémenter le compteur.
Counter = Counter + 1
Next xCell 'boucle jusqu'à la fin

' S'assurer que rien n'est sélectionné dans le graphique.
ActiveSheet.Range("a1").Select
resetcode = False
End Sub

Sub ResetChart()
'
'Cette procédure rétablit le graphique afin de pouvoir appliquer les étiquettes.
'
Application.ScreenUpdating = False

ActiveSheet.ChartObjects.Select
ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowNone
ActiveSheet.Range("a1").Select
Application.ScreenUpdating = True
resetcode = True
End Sub

--
--
@+
;o)))

Avatar
Apprenti.xls
Merci Modeste,

Je voulais préciser que je connaissais ce code, mais cela ne résoud pas mon
problème pour les fonctions centiles à la place de la fonction écart-type
d'un TCD par exemple ...

Relance du sujet donc ;-)

"Modeste" a écrit dans le message de news:

Bonsour® Apprenti.xls avec ferveur ;o))) vous nous disiez :

Quelqu'un a bien du écrire un petit code pour y arriver ... Comme les
étiquettes pour les graphiques en nuages de points.


Oui... Oui...
par exemple : Excel 2002
C:Program FilesMicrosoft OfficeOffice 10Samples

Public resetcode As Boolean
Sub auto_open()
resetcode = True
End Sub

Sub AttachLabelsToPoints()
'Vérifie que la procédure ne s'exécute qu'une fois
'avant de rétablir le graphique
If resetcode = False Then
MsgBox "Rétablissez le graphique avant d'y appliquer les étiquettes ",
vbCritical
Exit Sub
End If
' Variables de dimension.
Dim Counter As Integer
Dim SourceWorksheet As Variant, xVals As Variant, xCell As Variant
Dim xLabel As Variant

' Ne pas mettre à jour l'écran pendant la procédure.
Application.ScreenUpdating = False

' Sélectionner le premier objet graphique (ChartObject) de la feuille
ActiveSheet.ChartObjects(1).Select

' Enregistrer la définition de la première série dans "xVals".
xVals = ActiveChart.SeriesCollection(1).Formula

' Ces lignes extraient le nom de la feuille de calcul source depuis
xVals.
SourceWorksheet = Left(xVals, InStr(1, xVals, "!") - 1)
SourceWorksheet = Right(SourceWorksheet, Len(SourceWorksheet) - _
InStr(1, SourceWorksheet, "("))
If Left(SourceWorksheet, 1) = "," Then
SourceWorksheet = Right(SourceWorksheet, Len(SourceWorksheet) - 1)
End If

' Remplacer le nom de la feuille de calcul source par "xlSheet" pour
que
' les recherches suivantes fonctionne si la feuille de calcul
' contient des virgules.
xVals = Application.Substitute(xVals, SourceWorksheet, "xlSheet")

' Traitement suplémentaire du nom xVals.
xVals = Right(xVals, Len(xVals) - InStr(1, xVals, ","))

' Si le graphique utilise des valeurs x hypothétiques afficher un
' message d'alerte
If Left(xVals, 1) = "," Then

' NOTE: les deux lignes suivantes doivent être entrées
' sur une seule ligne.
MsgBox "Ce graphique en nuage de points (XY) utilise des valeurs X
hypothétiques." & _
" La macro ne peut continuer."

' Quitter la sous routine si des valeurs x hypoothétiques sont
utilisées.
Exit Sub
End If

' Traitement suplémentaire du nom xVals.
xVals = Left(xVals, InStr(1, xVals, ",") - 1)

' Rendre à la feuille de calcul son nom d'origine
' en remplacement de "xlSheet".
xVals = Application.Substitute(xVals, "xlSheet", SourceWorksheet)

' Initialiser un compteur.
Counter = 1

' Pour chaque cellule de la plage xVals...
For Each xCell In Range(xVals)

' Lire la valeur de l'étiquette à côté de la valeur x en cours.
xLabel = xCell.Offset(0, -1).Value

' Associer une étiquette au point sur le graphique.
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
True

' Placer le texte ("Donnée1, par exemple)dans l'étiquette
aassociée.
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
xLabel

' Incrémenter le compteur.
Counter = Counter + 1
Next xCell 'boucle jusqu'à la fin

' S'assurer que rien n'est sélectionné dans le graphique.
ActiveSheet.Range("a1").Select
resetcode = False
End Sub

Sub ResetChart()
'
'Cette procédure rétablit le graphique afin de pouvoir appliquer les
étiquettes.
'
Application.ScreenUpdating = False

ActiveSheet.ChartObjects.Select
ActiveChart.SeriesCollection(1).ApplyDataLabels
Type:=xlDataLabelsShowNone
ActiveSheet.Range("a1").Select
Application.ScreenUpdating = True
resetcode = True
End Sub

--
--
@+
;o)))





Avatar
Misange
partage partage quand tu auras trouvé !
les tcd souffrent de beaucoup de défauts pour des scientifiques. Si tu
trouves comment faire des graphiques croisés dynamiques avec les barres
d'erreur... !
je crois que les TCD ont été conçus hélas pour et surtout par des non
scientifiques qui pourtant les utilisent beaucoup !

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Re-bonjour à tous !

Après avoir recherché sur le forum des questions relatives à ce sujet, je me
suis rendu compte que je n'étais pas le seul à déjà avoir posé la question
...
Mais à chaque fois, les questions posées sont restées sans suite.
Aussi, recommencé-je.

Faut-il absolument s'exonérer du TCD pour pouvoir utiliser les fonctions
centiles en fonction de certains critères ?

Quelqu'un a bien du écrire un petit code pour y arriver ... Comme les
étiquettes pour les graphiques en nuages de points.
Si vous avez une idée sur la question, je suis preneur.

Je continue de chercher de mon côté bien évidemment et ne manquerait pas de
revenir poster si j'ai trouvé quelquechose/
J'apprends, j'apprends ...

"Apprenti.xls" a écrit dans le message de news:
45b67167$0$27406$
Personne ne semble être en mesure de répondre pour le moment, dirait-on.
;-(
Petit plus à ma requête : si un petit code VBA pouvait me venir en aide,
j'aimerais bien ajouter une fonction Premier décile et une autre Dernier
décile à la place des fonctions moyenne, mini et maxi ...

Je ne sais vraiment pas si c'est possible et comment l'enregistrer (.xla
peut-être, module de classe ?) , mais bon, on ne sait jamais ...

J'apprends, j'apprends ...

"Apprenti.xls" a écrit dans le message de
news: 45b52afc$0$27368$
Bonjour à tous !

Petite question du jour qui me trotte dans la tête depuis un petit moment
:
Existe-t-il une possibilité immédiate de calculer une médiane dans un TCD
?

Si ce n'est pas possible, j'utilise déjà correctement la fonction
SOMMEPROD. Pas de problème de ce côté là, mais je souhaiterais un petit
coup de main pour modifier le menu d'un TCD avec une petite routine ...
Si l'un d'entre vous s'est déjà penché sur le problème, la solution
m'intéresse.

Je vous remercie par avance de votre coopération.
Bonne année à tous et longue vie au forum !

J'apprends, j'apprends ...










Avatar
Apprenti.xls
Merci Misange pour ces précisions.
Je continue de chercher ...

"Misange" a écrit dans le message de news:
uSwfF%23%
partage partage quand tu auras trouvé !
les tcd souffrent de beaucoup de défauts pour des scientifiques. Si tu
trouves comment faire des graphiques croisés dynamiques avec les barres
d'erreur... !
je crois que les TCD ont été conçus hélas pour et surtout par des non
scientifiques qui pourtant les utilisent beaucoup !

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Re-bonjour à tous !

Après avoir recherché sur le forum des questions relatives à ce sujet, je
me suis rendu compte que je n'étais pas le seul à déjà avoir posé la
question ...
Mais à chaque fois, les questions posées sont restées sans suite.
Aussi, recommencé-je.

Faut-il absolument s'exonérer du TCD pour pouvoir utiliser les fonctions
centiles en fonction de certains critères ?

Quelqu'un a bien du écrire un petit code pour y arriver ... Comme les
étiquettes pour les graphiques en nuages de points.
Si vous avez une idée sur la question, je suis preneur.

Je continue de chercher de mon côté bien évidemment et ne manquerait pas
de revenir poster si j'ai trouvé quelquechose/
J'apprends, j'apprends ...

"Apprenti.xls" a écrit dans le message de
news: 45b67167$0$27406$
Personne ne semble être en mesure de répondre pour le moment, dirait-on.
;-(
Petit plus à ma requête : si un petit code VBA pouvait me venir en aide,
j'aimerais bien ajouter une fonction Premier décile et une autre Dernier
décile à la place des fonctions moyenne, mini et maxi ...

Je ne sais vraiment pas si c'est possible et comment l'enregistrer (.xla
peut-être, module de classe ?) , mais bon, on ne sait jamais ...

J'apprends, j'apprends ...

"Apprenti.xls" a écrit dans le message de
news: 45b52afc$0$27368$
Bonjour à tous !

Petite question du jour qui me trotte dans la tête depuis un petit
moment :
Existe-t-il une possibilité immédiate de calculer une médiane dans un
TCD ?

Si ce n'est pas possible, j'utilise déjà correctement la fonction
SOMMEPROD. Pas de problème de ce côté là, mais je souhaiterais un petit
coup de main pour modifier le menu d'un TCD avec une petite routine ...
Si l'un d'entre vous s'est déjà penché sur le problème, la solution
m'intéresse.

Je vous remercie par avance de votre coopération.
Bonne année à tous et longue vie au forum !

J'apprends, j'apprends ...