Classe nombre complexe

Bonjour,

Je souhaite créer une classe de complexe sous vba avec plusieurs opérations ,
pour commencer j'ai défini un nouveau type complex puis je veux calculer la somme de deux complexe :

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 28 29 30 31 32 33 34 35 36 37 38 39 40

Option Explicit   'nombre complexe Private Type complex real As Double ' partie réelle img As Double 'partie imaginaire End Type   Sub test()     Dim z1, z2, z3 As complex Dim x, y As Double   z1.real = 1 z1.img = -1   z2.real = 2 z2.img = 0   z3 = add(z1, z2) MsgBox z3.real 'ça beug ici,il dit argument z1 incompatible avec byref MsgBox z3.img   End Sub     Public Function add(z1 As complex, z2 As complex) As complex   Dim x1, x2, y1, y2 As Double   x1 = z1.real x2 = z2.img y1 = z1.real y2 = z2.img   add.real = x1 + x2 add.img = y1 + y2   End Function

---

quelqu'un peut m'aider svp ?

Dim z1, z2, z3 As complex
Dim x, y As Double


Dim z1 as complex, z2 as complex, z3 as complex
Dim x as double, y as double

Ci joint un classeur très complet au niveau des complèxes by pfadintegral dot com

La fonction que tu as écrite est fausse (tu additionnes une partir réelle avec une partie imaginaire...). Ci-joint le code corrigé et simplifié:

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 28 29 30

Option Explicit   Private Type Complex real As Double img As Double End Type   Private Sub Test()   Dim z1 As Complex, z2 As Complex, z3 As Complex Dim x As Double, y As Double   z1.real = 1 z1.img = -1   z2.real = 2 z2.img = 0   z3 = add(z1, z2) MsgBox z3.real MsgBox z3.img   End Sub   Private Function add(z1 As Complex, z2 As Complex) As Complex   add.real = z1.real + z2.real add.img = z1.img + z2.img   End Function

---

Si je ne m'abuse elle est déjà codée dans excel COMPLEXE.SOMME et admet 255 complexes à sommer..

Ok, parfait , merci tout le monde