utilisation des valeurs refedit (macro en pj)

  • Initiateur de la discussion carlos
  • Date de début
C

carlos

Guest
Voila j'ai un petit problème.
J'ai un bug....
Je cherche à traçer automatiquement une courbe
Coefficients de variation=f(Concentrations)
Ci joint un fichier de ma compo
J'ai fait un userform sur le quelle j'ai mis 2 refedit (2 et 3) et 2 commandbutton (1 et 2).
J'ai fait la macro qui permet de tracer le graphique mais il ne veut pas de mes valeurs du userform1.refedit2 et userform1.refedit3 pour traçer la courbe.
Je suppose qu'il faut modifier le type des valeurs des refedit mais je ne trouve pas à quel endroit.
Si vous pouvez m'aider svp merci ;)
 

Pièces jointes

  • CVmacro.zip
    15.1 KB · Affichages: 17
  • CVmacro.zip
    15.1 KB · Affichages: 20
  • CVmacro.zip
    15.1 KB · Affichages: 20
Z

Zon

Guest
Salut,

Mets en parametres tes valeurs

coeff deviendrait alors

Sub Coeff(P1 As Range, P2 As Range)
...
ActiveChart.SeriesCollection(1).XValues = P1
ActiveChart.SeriesCollection(1).Values = P2

...

'idem pour le reste.

Tu lances ta procédure comme cela

Coeff Range(RefEdit3.Value), Range(RefEdit2.Value)

A+++
 
C

carlos

Guest
merci pour ta précieuse aide. Cependant il reste un bug (je suis exigent et surtout pressé). je joins le fichier. L'application qui bug correspond à une macro faite sur l'outil analyse d'XL.
Merci d'avance.
 

Pièces jointes

  • CVmacro.zip
    17.3 KB · Affichages: 28
  • CVmacro.zip
    17.3 KB · Affichages: 30
  • CVmacro.zip
    17.3 KB · Affichages: 26
Z

Zon

Guest
Re,

Il faut que tu coches dans les macros complémentaires utilitaires d'analyse VBA.
il vaudra ensuite mieux écrire:

with Sheets("Coefficient de variation")
.Range("B12") = Sheets("régression orde 2").Range("B18").Value
.Range("C12").Value = Sheets("régression orde 2").Range("B19").Value
.Range("A12").Value = Sheets("régression orde 2").Range("B17").Value
end with

A+++
 

Discussions similaires

Statistiques des forums

Discussions
312 330
Messages
2 087 337
Membres
103 524
dernier inscrit
Smile1813