Bonjour,

Je suis entrain de réaliser un programme qui permet de récupérer des valeurs dans différents textbox et de les stocker dans 3 vecteurs : epaisseur_mm, tg et eps.

A présent je souhaite effectuer une multiplication dans ma boucle pour le vecteurepaisseur_mm avec un complexe : (1 - 1i*tg(k)).

J'ai essayer de plusieurs manière notamment avec COMPLEXE(1;-tg(k);""k"") mais j'ai toujours une erreur.

Voici mon code que j'ai actuellement :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim epaisseur_mm(1 To 12), k As Long
Dim tg(1 To 12)
Dim eps(1 To 12)
 
For k = 1 To M
    epaisseur_mm(k) = CSng(Me.Controls("ep_c" & k).Text)
    tg(k) = CSng(Me.Controls("tg_c" & k).Text)
    eps(k) = CSng(Me.Controls("eps_c" & k).Text)
Next k
Merci.