Discussion :

[gogo1741]

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 :

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
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 ?

[EngueEngue]

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

[Invité]

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 :

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
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

[EngueEngue]

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

[gogo1741]

Ok, parfait , merci tout le monde