Bonjour,
j'appelle une function et dans le corps de cette function je souhaite entrer des valeurs calculées dans cette function dans des cellules
voici le code:
Public Function Traj_P_n(t_Ref As Double, t_End As Double, n_0 As Double, a_n As Double, sigma_n As Double, YCName_n As String, NbTraj As Double)
Dim i As Double, j As Double
For j = 1 To NbTraj
For i = t_Ref + 1 To t_End
Sheets("traj" ).Cells(i - t_Ref, j).Value = P_n(t_Ref, i, t_End, n_0, a_n, sigma_n, YCName_n)
Next
Next
Traj_P_n = 1
End Function
le type renvoyé par la function P_n est un double
le problème c'est que ça plante, quand je suis en mode debug ça ne renvoie pas d'erreur et ça s'arrette d'un coup
merci