Bonjour
je suis responsable qualité et je cherche a automatisé la création de graphique (courbes) avec 7 Séries

  1. Valeur Nominal, ==> Constante
  2. Interval Tolérance Maximum ==> Constante
  3. Interval Tolérance Minimum ==> Constante
  4. Valeur Mesurées
  5. Moyenne, ==> Constante calculer a partir des valeurs Mesurés
  6. Upper Control Limit ==> Constante calculer a partir des valeurs Mesurés sur une population témoins
  7. 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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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