application inputBox, et génération de Graphique
Bonjour
je suis responsable qualité et je cherche a automatisé la création de graphique (courbes) avec 7 Séries
- Valeur Nominal, ==> Constante
- Interval Tolérance Maximum ==> Constante
- Interval Tolérance Minimum ==> Constante
- Valeur Mesurées
- Moyenne, ==> Constante calculer a partir des valeurs Mesurés
- Upper Control Limit ==> Constante calculer a partir des valeurs Mesurés sur une population témoins
- Lower Control Limit ==>Constante calculer a partir des valeurs Mesurés sur une population témoins
Je passe par un onglet Datasheet dans lequel j'ai mes valeurs inscrites au Km, pour chaque lot de production j'ai plusieurs caractéristiques produits mesurés.
| LOT |
Reference produit |
Date |
Carac 1 poid : Nominal |
Caractéristique 1 IT Min |
Cara 1 IT MAX |
Cara 1 Valeur |
Cara 2 : Epaisseur |
/..... |
|---|
| xxx |
ARTICLE 1 |
Today |
0.8 |
0.6 |
0.9 |
0. 745 |
120 |
115 |
j'ai plus de 400 lots répartis sur environ 7 articles.
Je passe par une aspiration de donnés dans une variable tableau (Table_Extract) (oui je sais je me suis pas foulé pour le nom)
Après plusieurs boucle de calcul je suis capable de générer
- Nombre d individu de la population
- Moyenne
- Ecart type a la moyenne
- Les limites Upper et Lower de control
J'arrive à supprimer les anciens graphiques et a générer le nouveau, j'arrive a attribuer mes couleurs , a nommer les séries..
Ce que je n'arrive pas a faire c'est générer mes lignes avec mes constantes....
pour être plus précis si je créer
Code:
1
2
3
4
5
6
7
8
9
| Nominal = 0.8
ITMin = 0.6
ITMAX = 0.9
for i = 1 to Population
Tableau_Nominal(i) = Nominal
Tableau_ITmin(i) = ITMin
Tableau_ITMAX(i) = ITMAX
next i |
Puis :
Code:
1
2
3
4
5
6
7
8
| .SeriesCollection.NewSeries
With .SeriesCollection(1)
.Name = "Nominal"
.Values = Tableau_Nominal()
.Border.Color = RGB(3, 34, 76) 'Nominal
.XValues = Tableau_Abscisses()
.Border.LineStyle = xlDash 'Abscisses
End With |
Tout vas bien mes courbes (droites) apparaissent.
Comme malheureusement mes fournisseurs qui saisissent les données n'utilisent pas forcément les mêmes nominaux, et IT que moi j'ai besoin de ressaisir mes Nominaux et IT.
pour cela je passe par une inputbox.
Nominal est déclarée en Currency
Code:
Nominal = Application.InputBox("Tapez la valeur", "Merci de saisir le nominal", Type:=1)
et la c'est le drame...
Impossible de faire apparaitre mes 3 courbes...
je ne comprend pas j'ai cherché partout...
Merci à vous pour votre aide
Ps : si vous pouviez me dire avec quoi vous réaliser vos ex tracts avec les numéros de lignes ce serait cool :)
