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

Tu as essayé en appelant ta Fonction sans le parenthesage ?
 
Sheets("traj" ).Cells(i - t_Ref, j).Value = P_n t_Ref, i, t_End, n_0, a_n, sigma_n, YCName_n

ca  marche pas non plus
 
 
apparemment c que avec les sub qu'on peut ecrire dans une cellule c'est bizarre quand meme

Eh oui !