Discussion :

[Lucis]

Bonsoir,

Je suis étudiante et je dois écrire une macro sur excel permettant de calculer la valeur de l'hypothénus (c) selon le théorème de Pythagore. Les valeurs de a et b (les deux autres côtés) doivent être demandé à l'utilisateur et la macro devra être déclenchée par un bouton situé sur la feuille de calcul.

Je n'ai strictement aucune idée de comment je peux réaliser cette macro.

Pouvez-vous m'aider s'il-vous-plait ?

Merci à vous.

[unparia]

Bonjour
Et ta difficulté est à quel niveau ?
- a)

doivent être demandé à l'utilisateu

Tu as le choix entre :
---- L'utilisation de InputBox
---- L'utilisation de Textboxes
---- L'utilisation de cellules de ta feuille
- b)

la macro devra être déclenchée par un bouton situé sur la feuille de calcul

Utilisation de la procédure évènementielle Click de ce bouton
- c) ce que doit calculer ta macro
Ben ... application du théorème de Pythagore en prenant en compte les valeurs numériques décidées (voir plus haut) par l'utilisateur.
Yapluka faire cet exercice scolaire.

EDIT : et si tu choisis de le faire sur une feuille Excel, nul besoin de VBA. Une formule suffit (utilisation des fonctions Excel RACINE et PUISSANCE et de l'opérateur Excel +

[Lucis]

Je suis obligé d'écrire une macro en utilisant Visual Basic et notamment la fonction Srq. Je sais que je devrais utiliser un Inputbox. Mais, on ne nous a strictement rien donné sur la manière dont il faut écrire une macro. Je n'ai quasiment aucune notion...

[unparia]

Je suis obligé d'écrire une macro en utilisant Visual Basic et notamment la fonction Srq. Je sais que je devrais utiliser un Inputbox. Mais, on ne nous a strictement rien donné sur la manière dont il faut écrire une macro. Je n'ai quasiment aucune notion...

Ben ... commence donc par t'intéresser à la fonction dont il s'agit (Au fait : ce n'est pas "Srq" ...)
On accède à l'éditeur Basic par le bouton "Développeur"
La barre d'outil de cet éditeur comporte un onglet "?", ou "Aide", ou "Help" ...
Bonne lecture.
Et ne t'inquiète pas : si "on ne vous a strictement rien dit", tous les autres élèves seront à égalité avec toi.

Edit : j'estime personnellement que je t'ai donné plus haut toutes les pistes dont tu as besoin pour t'y mettre.

[patricktoulon]

re
bonsoir
exemple dans les cellules la formule dans la barre de formule


pour l'automatisme

=SI(ET(B2*D2>B2;B2*D2>D2);RACINE((B2+C2)*(B2+C2)+(C2+D2)*(C2+D2));"")

tu tape la longueur des deux cotés formant l'angle droit et en E le calcul se fait tout seul
en C tu met

=SI(B2<>"";0;"")

et tu applique la formule sur le nombre de ligne que tu veux

sinon en vba c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function hypotenuse(a, b)
If a <> "" And b <> "" Then
hypotenuse = WorksheetFunction.ImSqrt(a * a + b * b)
End If
End Function

et on l'utilisera par exemple dans une cellule comme ceci:

=hypotenuse(B3;D3)

voila

toujours pareil le "a" et le "b" représentant la dimension des deux cotés formant l'angle droit

[unparia]

Bonjour Patricktoulon
Tu as fait une partie d'un devoir scolaire
Ceci dit :
- Le calcul de l' hypoténuse se fait sur les seules dimensions des deux côtés de l'angle droit d'un triangle rectangle
d'où (le message du demandeur) :

Les valeurs de a et b (les deux autres côtés) doivent être demandé à l'utilisateur

-->> et dans ton exemple, donc -->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(B2>0;D2>0);RACINE(PUISSANCE(B2;2)+PUISSANCE(D2;2));"triangle incomplet")

- L'enseignant a demandé aux élèves d'utiliser une autre fonction (pure VBA), dont Lucis a estropié le nom dans son second message
Ne crois-tu pas que là devrait s'arrêter notre immixtion (voire immission) dans cette affaire scolaire ? ....