Fonctions mathématiques en VB

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

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:

---

1 2 3 4

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

---

@+

Merci, ca marche nickel

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

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

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

Code:

---

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

---

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 :cry:
maislà, nice.

very merci, tu me sauve la vie.

je marque le sujet "Réglé".