Longtemps je me suis couché tard
pour tenter de faire une macro
qui mettrait un graphique
«nuage de points»
à l'échelle.
En vain.
Avez-vous des suggestions ou des liens qui me permettraient
de réaliser cet exploit avant la fin du 21 ième siècle ?
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
Eric KERGRESSE
Bonsoir,
Je ne sais pas si le bout de code suivant peut t'aider mais j'ai eu également à traiter ce problème pour faire apparaître sur un graphe des mesures électriques (KV, Ampère, MW) dont l'amplitude des valeurs variait d'une façon importante.
Dans une procédure pour mettre à jour ton graphe, tu ajoutes ce code :
With Activechart.Axes(xlValue)
.MinimumScale=0
if UniteMesure = "KV" Then .MaximumScaleIsAuto=True Else .MaximumScale=ValeurMaximale End if
Dans une autre procédure tu testes les valeurs à intégrer
Sub EchelledesDonnees
Select case UniteMesure Case is = "Ampère" ValeurMaximale = (Int(ValeurMaximale/100 + 1) * 100 Case is = "MW" ValeurMaximale = (Int(ValeurMaximale / 10) + 1) * 10 End select
End Sub
En espérant que cela corresponde à ton problème.
Cordialement.
"garnote" a écrit dans le message de news: hKq0c.89936$
Bonsoir,
Longtemps je me suis couché tard pour tenter de faire une macro qui mettrait un graphique «nuage de points» à l'échelle. En vain. Avez-vous des suggestions ou des liens qui me permettraient de réaliser cet exploit avant la fin du 21 ième siècle ?
:-)
Serge
Bonsoir,
Je ne sais pas si le bout de code suivant peut t'aider
mais j'ai eu également à traiter ce problème pour faire apparaître
sur un graphe des mesures électriques (KV, Ampère, MW) dont
l'amplitude des valeurs variait d'une façon importante.
Dans une procédure pour mettre à jour ton graphe, tu ajoutes ce code :
With Activechart.Axes(xlValue)
.MinimumScale=0
if UniteMesure = "KV" Then
.MaximumScaleIsAuto=True
Else
.MaximumScale=ValeurMaximale
End if
Dans une autre procédure tu testes les valeurs à intégrer
Sub EchelledesDonnees
Select case UniteMesure
Case is = "Ampère"
ValeurMaximale = (Int(ValeurMaximale/100 + 1) * 100
Case is = "MW"
ValeurMaximale = (Int(ValeurMaximale / 10) + 1) * 10
End select
End Sub
En espérant que cela corresponde à ton problème.
Cordialement.
"garnote" <rien@absent.net> a écrit dans le message de news:
hKq0c.89936$2g.52463@charlie.risq.qc.ca...
Bonsoir,
Longtemps je me suis couché tard
pour tenter de faire une macro
qui mettrait un graphique
«nuage de points»
à l'échelle.
En vain.
Avez-vous des suggestions ou des liens qui me permettraient
de réaliser cet exploit avant la fin du 21 ième siècle ?
Je ne sais pas si le bout de code suivant peut t'aider mais j'ai eu également à traiter ce problème pour faire apparaître sur un graphe des mesures électriques (KV, Ampère, MW) dont l'amplitude des valeurs variait d'une façon importante.
Dans une procédure pour mettre à jour ton graphe, tu ajoutes ce code :
With Activechart.Axes(xlValue)
.MinimumScale=0
if UniteMesure = "KV" Then .MaximumScaleIsAuto=True Else .MaximumScale=ValeurMaximale End if
Dans une autre procédure tu testes les valeurs à intégrer
Sub EchelledesDonnees
Select case UniteMesure Case is = "Ampère" ValeurMaximale = (Int(ValeurMaximale/100 + 1) * 100 Case is = "MW" ValeurMaximale = (Int(ValeurMaximale / 10) + 1) * 10 End select
End Sub
En espérant que cela corresponde à ton problème.
Cordialement.
"garnote" a écrit dans le message de news: hKq0c.89936$
Bonsoir,
Longtemps je me suis couché tard pour tenter de faire une macro qui mettrait un graphique «nuage de points» à l'échelle. En vain. Avez-vous des suggestions ou des liens qui me permettraient de réaliser cet exploit avant la fin du 21 ième siècle ?
