macro sur excel 2003 Visual Basic

[invite71ebf1eb]

Bonjour,

Je souhaiterais effectuer une macro.

Comment puis-je faire une interface pour rentrer une valeur de luminosité et que le programme donne directement la valeur de seuillage à utiliser sachant que je connais la formule qui lie la luminosité et le seuillage? (voir la photo ci-jointe).

Avez vous fait ce genre d'interface?

Merci d'avance,

Rémi
-----

[invite1d577638]

Si j'ai bien saisi, tu entres une valeur dans ta textbox de gauche, tu cliques sur le bouton et une valeur apparait dans la textbox de droite ?

Si oui, c'est très simple :


Dans ta première sub:

 Sub command1_click


Dim i,j as single

i= text1.text   'récupère la valeur saisie...
j=   f(i)      'calcule la valeur de sortie


text2.text = j  'affiche la valeur dans ta boite de sortie


end sub

et voilà !

[invite71ebf1eb]

merci pour ces informations, je ne suis pas expert en programmation donc ça ne fonctionne pas.
Je ne sais pas quel type de bouton dois je utiliser pour afficher la valeur calculée.

[invite1d577638]

Il n'y a qu'un seul type de bouton. Ceux placés sont bons !

Quel est le message d'erreur ? Ton problème ne doit pas être compliqué du tout !

[A voir en vidéo sur Futura]

[invite71ebf1eb]

voici ce que j'ai dans les onglets de programmation, je n'ai pas subcommand1_clic.

l'équation que j'aimerai utiliser est la suivante: y = -4,7678382478E-12x5 + 1,0660232878E-09x4 + 3,1631038762E-05x3 - 5,5595156195E-02x2 + 3,5755294117E+01x - 7,9867745698E+03

avec en x les valeurs que je rentre dans la fenêtre de gauche.

merci pour votre aide,

[invite1d577638]

C'est la première sub, là où tu as ton curseur. Le code rentré dans cette sub est exécuté lors de l'appui sur le bouton.

Entre le code suivant entre la ligne sub et end sub

Dim x,y as single

x= val(textbox1.text)   'récupère la valeur saisie...
y=  = -4,7678382478E-12  *   x ^ 5 + 1,0660232878E-09 *x^4 + 3,1631038762E-05   * x^3  - 5,5595156195E-02 * x ^ 2 + 3,5755294117E+01* x  - 7,9867745698E+03      'calcule la valeur de sortie


textbox2.text = y  'affiche la valeur dans ta boite de sortie

Ce code récupère la valeur de la première zone de texte, applique ta formule et affiche le résultat dans la seconde.

[invite71ebf1eb]

merci beaucoup !! c'est parfait

[invite71ebf1eb]

voici le message d'erreur qui apparait

[invite71ebf1eb]

Pièce jointe 211438

voici la fenêtre rédigée

[JPL]

Pièce jointe invalide.

[invite14cd8b03]

Salut,

Vu la partie en surbrillance, je dirais que tu as un problème de séparateur décimal...
Selon la conf de Windows, le séparateur décimal est soit le point soit la virgule.
Il faut croire que tu as choisi le mauvais.

PS : Attention avec les copies d'écran! Rien que sur la dernière je peux voir le nom d'une personne apparaitre et je sais aussi que tu es sur un PC d'entreprise grâce à l'icone de l'agent ePO...

[Chanur]

Bonjour,

Attention avec les copies d'écran!

Un petit truc : Alt ImpEcran permet de ne copier que la fenêtre courante.
C'est déjà plus discret ...

A+