Discussion :

[soundman01]

Bonjour, je suis débutant en VBA alors j'ai besoin de votre aide! Je dois faire un cercle unité qui propose un angle parmi les angles remarquables à chaque fois que je clique sur un bouton. Je sais comment faire un bouton et la lier à une macro. J'ai aussi été capable de faire un cercle avec la fonction suivante:
Pour le reste, j'ai besoin d'un petit coups de pouce!
Merci et bonne journée!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Draw_Cirlce()
ActiveSheet.Shapes.AddShape(msoShapeOval, 12, 6.75, 500, 500).Select
Selection.ShapeRange.Fill.Visible = msoFalse
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.Weight = 2.25
End With
End Sub

[gnain]

Je dois faire un cercle unité qui propose un angle parmi les angles remarquables à chaque fois que je clique sur un bouton.

Bonjour,
Votre demande est dans cette phrase ci-haut, mais j'ai de la difficulté à comprendre.
pouvez-vous précisé svp?

[soundman01]

Désolé! Je dois avouer que ma question n'est pas très précise. Donc reprenons!

Avec VBA, voici ce que je dois coder:
Un cercle unité (pour la trigonométrie). Une fois que l'utilisateur clique sur un bouton, un angle apparaît sur le cercle unité (un point sur le cercle, qui fait une ligne liée au point [0,0], et la mesure de l'angle qui apparaît).
L'utilisateur devra alors déduire, selon l'angle donné, le radians, le cos ainsi que le sin.

Merci!

[gnain]

Bonjour,
Pour utiliser, il faut faire votre cercle avant tout, ensuite entrer le degré dans la cellule A1 puis exécuter la macro.
Cette macro à été faite en fonction de la position du centre de votre cercle et en fonction de son rayon
si vous changé ces 2 paramètres, il faudera ajuster cette macro.
en espérant de vous avoir aidé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Draw_Line()
 
    Dim Position_Centre_X
    Dim Position_Centre_Y
    Dim Point_Cercle_X
    Dim Point_Cercle_Y
    Dim Rayon
 
    Rayon = 250 ' = Diamètre / 2 (Diamètre = 500 que vous avez donné pour votre cercle)
 
    Position_Centre_X = 262 ' = Rayon + 12 (12 pour position que vous avez donné pour votre cercle)
    Position_Centre_Y = 256.75 ' = Rayon + 6.75 (6.75 pour position que vous avez donné pour votre cercle)
 
    '=============================================================================
    '=============================================================================
    'Position point sur cercle selon angle
    'Formule mathématique
    'x = x0 + r*cos(t)
    'y = y0 + r*sin(t)
    'où (x0,y0) sont les coord du centre, r est le rayon, et t l'angle en radian
    '1 degré = 0.0174532925 Radian
    Point_Cercle_X = Position_Centre_X + (Rayon * Cos(Cells(1, 1) * -0.0174532925))
    Point_Cercle_Y = Position_Centre_Y + (Rayon * Sin(Cells(1, 1) * -0.0174532925))
    '=============================================================================
    '=============================================================================
 
    With ActiveSheet.Shapes.AddLine(Position_Centre_X, Position_Centre_Y, Point_Cercle_X, Point_Cercle_Y).Line
        .Weight = 2.25
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
 
End Sub

[soundman01]

Merci beaucoup! C'est vraiment intéressant. J'ai cependant trouvé une solution qui est, à mes yeux, plus simple. J'ai utilisé un graphique, tout simplement. J'ai cependant une autre question pour vous, si vous avez le temps!
J'ai fais un tableau qui montre le cos et le sin d'un angle en radian. Cependant, la valeur du cos et du sin est exprimé en décimal. J'aimerais que ceux-ci soient exprimés comme : (racine de 2)/2. Si j'utilise la notation fractionnaire, j'obtiens une bonne réponse mais pas sous la forme que je désire.
Merci et bonne journée!

[gnain]

Bonjour,
le symbole racine carré n'a pas de code ascii alors pour obtenir ce que tu veux il faut triché,
comme ceci
r = Rayon

Code :

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

msgbox "\/¯" & (r * 4 - (r ^ 2)) & "/2"