Discussion :

[Kazimir]

Bonjour,

je cherche en vain une fonction mathématique en VB:
en VBA, il existe une fonction ATAN() et ATAN2()

respctivement arctangeante d'un point et arctangeante de coordonnées.

Je sais qu'il existe la fonction atn() qui est l'arctangeante d'un point en vb, mais je veux l'arctangeante de coordonnées.

Quelqu'un pourrait m'aider a trouver cette fonction SVP ?
merci

[User]

Salut,

Pourquoi ne crées tu pas une référence à excel (ex: Ms Excel 8.0 object)dans ton projet et après:

Tu fais référence à la fonction Excel:

Code :

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

1
2
3
4
 
Public Function Test()
Test = Excel.WorksheetFunction.Atan2(1, 2)
End Function

@+

[Kazimir]

Merci, ca marche nickel

seul prob, ca m'oblige a avoir Excel installé sur le pc !!!

j'aimerais que mon prog soit autonome (surtout que avoir excel uniquement pour cette fonction, ca fait lourd).

[grafikm_fr]

deterré sur je sais plus quel site au temps glorieux du VB4:

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
Public Function atan2(dx As Double, dy As Double, _
  Optional positive_only As Boolean = True) As Double
 
  Dim PI As Double
  Dim PI_2 As Double
 
  PI = Atn(1) * 4    'PI
  PI_2 = Atn(1) * 2  'PI/2
 
  Select Case True
    Case Abs(dx) < 0.0000001
      '-pi(-180°) / 0(0°)
      atan2 = IIf(dy < 0#, -Pi, 0#)
 
    Case Abs(dy) < 0.0000001
      '-pi/2(-90°) / +pi/2(+90°)
      atan2 = IIf(dx < 0#, -PI_2, PI_2)
 
    Case Else
      atan2 = Atn(dx / dy)
      atan2 = atan2 + IIf(atan2 < 0#, IIf(dy < 0#, _
        PI, 0#), IIf(dx < 0#, -PI, 0#))
  End Select
 
  If positive_only And (atan2 < 0) Then _
    atan2 = atan2 + 2 * Pi
End Function

[Kazimir]

Splendide, merci, ca marche au top

j'avais trouvé une fonction du même genre sur un site anglais, mais elle mais elle marchait pas
maislà, nice.

very merci, tu me sauve la vie.

je marque le sujet "Réglé".