Lancement d'une macro à l'ouverture de la feuille

Bonjour François

Bonjour,

Il ne faut pas passer par l'enregistreur de macro. Dans ton classeur, tu
ouvres l'éditeur VBE en faisant ALT+F11.

Tu crée un module.

Dans ce module, tu fais un copier-coller de la macro nommée FCG

Sub FCG(Seuil As Double, Op As String)
Application.ScreenUpdating = False
For j = 1 To ActiveChart.SeriesCollection.Count
With ActiveChart.SeriesCollection(j)
For i = 1 To .Points.Count
a = Application.WorksheetFunction.Index(.Values, i)
If a <> 0 Then
b = Evaluate(Val(a) & Op & Seuil)
rep = IIf(b, RGB(255, 255, 255), RGB(125, 125, 125))
.Points(i).Interior.Color = rep
End If
Next
End With
Next
Application.ScreenUpdating = True
End Sub

Dans les feuilles graphqiues, la macro ne peut pas commencer par deux
Sub, elle doit être comme suit :

Private Sub Chart_Activate()
FCG 19, "<"
End Sub

A partir de ton classeur, je t'ai fait un exemple de démonstration ne
contenant que les feuilles R1, T, P IMC (j'ai enlevé les mises en forme
de R1 pour limiter le poids). Dans l'exemple joint

http://cjoint.com/?kwjgJlDvOB

tu trouves le module1 avec la macro FCG et la macro de la feuille IMC
qui met en forme le graphique. Avec ça tu devrais t'en sortir.

En ce qui concerne tes autres questions, chaque graphique ne represente
qu'un seul paramètre à la fois, pour lesde joueurs qui ont passé le test.

OK, je te modifierai la macro FCG quand tu auras réussi à faire le
reste, ce sera la dernière étape !

Les bonnes couleurs sont 22 pour les valeurs < ou > à la norme, 19 pour les
valeurs dans les normes.

Les couleurs exprimées sous cette forme font référence à la palette de
couleur d'Excel qui peut avoir été modifiée par l'utilisateur. Pour un
classeur "portable", il est, à mon avis, préférable d'exprimer les
couleurs de manière absolue avec la syntaxe RGB. Donc dis moi quelles
couleurs tu veux.

Bon courage,

(normalement, vu le temps de ce matin, je risque de suivre le forum
aujourd'hui)

--
François L

Bonsoir François

Gràce à tes explications claires et adaptées à mon niveau de pratique, j'y
suis arrivé et ça marche très bien.
De plus c'est d'une simplicité enfantine à parametrer.

2 petites questions:
- Comment puis je changer les couleurs (beige ou vert pas trop vif pour une
valeur
dans les normes, rouge pas trop vif pour une valeur hors norme?)
- Est il possible de faire une condition double: par exemple les juniors ont
un problème de corpulence trop faible, pour eux une valeur satisfaisante de
l'imc est >25. Mais un joueur senior peut soit être dans le même cas, soit
avoir un IMC trop élevé (trop de muscu, trop de masse grasse).
Si je veux extrapoler ce classeur à des seniors, la condition serait donc :
bon (blanc) si >25 ET <31, mauvais (rouge) si < 25 OU > 31 .
Suis je clair?

En tout cas merci encore pour ton aide.
Cordialement
Pierre

Bonsoir François

Gràce à tes explications claires et adaptées à mon niveau de pratique, j'y
suis arrivé et ça marche très bien.
De plus c'est d'une simplicité enfantine à parametrer.

2 petites questions:
- Comment puis je changer les couleurs (beige ou vert pas trop vif pour une
valeur
dans les normes, rouge pas trop vif pour une valeur hors norme?)

Bonsoir,

Tu vois, on va y arriver...

Xl et les couleurs, c'est tout un poème. On peut déclarer les couleur en
RGB (Rouge, Vert, Bleu) mais en fait Excel affichera de toute manière la
couleur la plus proche qu'il trouvera dans sa palette de 56 couleurs,
voir Outils, Options, onglet Couleurs.

Pour un rouge pas trop vif, essaie un RGB(255,128,128), pour le vert
essaie RGB(204,255,204). Vas voir sur l'url suivante (en anglais) tu
trouveras des tableaux de couleurs XL avec leurs codes RGB
http://www.mvps.org/dmcritchie/excel/colors.htm

- Est il possible de faire une condition double: par exemple les juniors ont
un problème de corpulence trop faible, pour eux une valeur satisfaisante de
l'imc est >25. Mais un joueur senior peut soit être dans le même cas, soit
avoir un IMC trop élevé (trop de muscu, trop de masse grasse).
Si je veux extrapoler ce classeur à des seniors, la condition serait donc :
bon (blanc) si >25 ET <31, mauvais (rouge) si < 25 OU > 31 .
Suis je clair?

La dessus, je te fais un test, pour voir le plus simple sans refaire
toutes les macros.

Si je peux me permettre, ton classeur pèse plus de 8 Mo. Il y a intérêt
à avoir de l'ADSL pour le charger. Regardes si tu ne peux pas l'alléger,
le zipper, ... Autre chose, il y a maintenant des macros qui vont
provoquer un message de sécurité pour les utilisateurs. Je pense qu'il
faut que tu mettes un avertissement pour signaler la présence de macros
dans les classeurs et indiquer que si elles ne sont pas activées, le
classeur ne fonctionnera pas correctement. Ceci étant dit, pour
l'utilisateur parano, il peut toujours ouvrir le classeur avec les
macros désactivées, puis les lire... pas besoin d'être un VBiste de
pointe pour constater qu'elles sont parfaitement inoffensives.

--
François L

OK ça marche pour les couleurs maintenant.
L'alléger, oui mais comment?
Qu'est ce qui pèse le plus lourd dans ce type de classeur?
En ce qui concerne les données, tout est indispensable.
Pierre

Bonsoir François

- Est il possible de faire une condition double: par exemple les juniors ont
un problème de corpulence trop faible, pour eux une valeur satisfaisante de
l'imc est >25. Mais un joueur senior peut soit être dans le même cas, soit
avoir un IMC trop élevé (trop de muscu, trop de masse grasse).
Si je veux extrapoler ce classeur à des seniors, la condition serait donc :
bon (blanc) si >25 ET <31, mauvais (rouge) si < 25 OU > 31 .
Suis je clair?

Re,

Correction et réponse à la deuxième question. D'abord une petite
correction, la macro que je t'ai donnée gère mal les nombres décimaux si
la virgule est le séparateur décimal. Je l'ai donc corrigée.

Dans ton module, tu vas mettre les deux macros qui suivent et non plus
une (fais un copier-coller à partir du fichier joint comme ça tu auras
aussi la correction des décimales)

http://cjoint.com/?kwwXJWZRHI


' Pour le traitement d'une seule condition
Sub FCG1(Seuil1 As Double, Op1 As String)
Application.ScreenUpdating = False
For j = 1 To ActiveChart.SeriesCollection.Count
With ActiveChart.SeriesCollection(j)
For i = 1 To .Points.Count
a = Application.WorksheetFunction.Index(.Values, i)
a = Application.WorksheetFunction.Substitute(a, ",", ".")
If a <> 0 Then
b = Evaluate(a & Op1 & Seuil1)
rep = IIf(b, RGB(153, 254, 0), RGB(255, 128, 128))
.Points(i).Interior.Color = rep
End If
Next
End With
Next
Application.ScreenUpdating = True
End Sub


' Pour le traitement de deux conditions
Sub FCG2(Seuil1 As Double, Op1 As String, Seuil2 As Double, Op2 As String)
Application.ScreenUpdating = False
For j = 1 To ActiveChart.SeriesCollection.Count
With ActiveChart.SeriesCollection(j)
For i = 1 To .Points.Count
a = Application.WorksheetFunction.Index(.Values, i)
a = Application.WorksheetFunction.Substitute(a, ",", ".")
If a <> 0 Then
b = Evaluate(a & Op1 & Seuil1)
c = Evaluate(a & Op2 & Seuil2)
rep = IIf(b And c, RGB(153, 254, 0), RGB(255, 128, 128))
.Points(i).Interior.Color = rep
End If
Next
End With
Next
Application.ScreenUpdating = True
End Sub

Ensuite, pour les feuilles graphiques, soit tu as une seule condition à
vérifier, et rien ne change (graph IMC du fichier joint), soit tu en as
deux et la procédure sera comme dans la feuille graphique IMC2 :

Private Sub Chart_Activate()
FCG2 25, ">", 30, "<"
End Sub

Dans cette procédure la condition est > à 25 et < à 30

OK ?

C'est ton job ou ton hobby la préparation physique ?

--
François L

OK ça marche pour les couleurs maintenant.
L'alléger, oui mais comment?
Qu'est ce qui pèse le plus lourd dans ce type de classeur?
En ce qui concerne les données, tout est indispensable.
Pierre

Re,

Je dirais... les images de la première page..., les mises en forme
(bordures, etc.) mais je ne suis pas trop spécialiste de ça.

Eventuellement, tu peux d'abord voir ce que tu gagnerais en "zipant" et
pourquoi pas relancer un nouveau fil sur cette question. Il y aura bien
un gourou pour te donner de bonnes idées sur ce point.

--
François L

Effectivement avec les macros que j'avais rentré, les valeurs avec une
decimale beuguent sur le graphique.
Par contre en changeant la macro dans le module 1 par celle que tu viens de
me donner, çà beugue aussi.
J'ai rentré la condition activate avec ,=. pour 25,9 çà donne:

Private Sub Chart_Activate()
FCG 25.9, "<"
End Sub

Qu'est ce qui colle pas avec les decimales?

La prépa physique est mon hobby. J'aime bien le rugby à XIII à cause de sa
dimension athletique (jette un oeil à la page médicale sur "pourquoi le
gainage est il si indispensable"). C'est vraiment un beau sport.
Si mon nouveau site sur Free marche (difficulté d'acces selon les heures) je
disposerai de plus de place et je mettrai en ligne un clip promotionnel
australien de la NRL que m'a donné Brian Johnson. Il est vraiment sympa,
jettes y un oeil si tu aimes le sport...

Pierre

Effectivement avec les macros que j'avais rentré, les valeurs avec une
decimale beuguent sur le graphique.
Par contre en changeant la macro dans le module 1 par celle que tu viens de
me donner, çà beugue aussi.
J'ai rentré la condition activate avec ,=. pour 25,9 çà donne:

Private Sub Chart_Activate()
FCG 25.9, "<"
End Sub

Qu'est ce qui colle pas avec les decimales?

p'tain de décimales...

version corrigée

' Pour le traitement d'une seule condition
Sub FCG1(Seuil1 As Double, Op1 As String)
Application.ScreenUpdating = False
For j = 1 To ActiveChart.SeriesCollection.Count
With ActiveChart.SeriesCollection(j)
For i = 1 To .Points.Count
a = Application.WorksheetFunction.Index(.Values, i)
a = Application.WorksheetFunction.Substitute(a, ",", ".")
Seuil = Application.WorksheetFunction.Substitute(Seuil1, ",", ".")
If a <> 0 Then
b = Evaluate(a & Op1 & Seuil)
rep = IIf(b, RGB(153, 254, 0), RGB(255, 128, 128))
.Points(i).Interior.Color = rep
End If
Next
End With
Next
Application.ScreenUpdating = True
End Sub
' Pour le traitement de deux conditions
Sub FCG2(Seuil1 As Double, Op1 As String, Seuil2 As Double, Op2 As String)
Application.ScreenUpdating = False
For j = 1 To ActiveChart.SeriesCollection.Count
With ActiveChart.SeriesCollection(j)
For i = 1 To .Points.Count
a = Application.WorksheetFunction.Index(.Values, i)
a = Application.WorksheetFunction.Substitute(a, ",", ".")
Seuila = Application.WorksheetFunction.Substitute(Seuil1, ",", ".")
Seuilb = Application.WorksheetFunction.Substitute(Seuil2, ",", ".")
If a <> 0 Then
b = Evaluate(a & Op1 & Seuila)
c = Evaluate(a & Op2 & Seuilb)
rep = IIf(b And c, RGB(153, 254, 0), RGB(255, 128, 128))
.Points(i).Interior.Color = rep
End If
Next
End With
Next
Application.ScreenUpdating = True
End Sub

--
François L

Erreur de compilation: sub ou fonction non definis
me répond la bête en me mettant sous les yeux:
Private Sub Chart_Activate()
FCG 23.1, "<"
End Sub

Erreur de compilation: sub ou fonction non definis
me répond la bête en me mettant sous les yeux:
Private Sub Chart_Activate()
FCG 23.1, "<"
End Sub

Bonjour,

Attention, les macros s'appellent FCG1 et FCG2 maintenant !

--
François L