Bonjour tout le monde !

J'ai (encore) un problème avec mon code qui me donne une erreur d'argument ou d'appel de procédure sur la ligne en bleue. Ayant la tête dedans depuis quelques heures, je n'y vois plus rien du tout...

Est-ce que vous pouvez m'aider s'il vous plait ?


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
H0 = Worksheets("contantes").Range("A2").Value    'H0=1.25 déclaré en variant

For col = 1 To 36
    compt(col) = 2 'compt déclaré comme tableau integer 1 dimension de 1 a 37
Next col

For col = 1 To 36
    If IsEmpty(Sheets("Hpic(Dirp)").Cells(3, col)) =false then
       rho_weibull = Sheets("hi-H0" & col).Range("G3").Value ' =1,30778824330072 et déclaré comme variant
       P = Sheets("hi-H0" & col).Range("K2").Value 'déclaré comme variant
       mu = Sheets("contantes").Cells(8, col).Value 'déclaré comme variant

        Sheets("houle_dirp").Cells(2, compt(col)).Value = H0 + (1 / rho_weibull * Math.Log(12 * mu)) ^ (1 / P)
    End If
Next col
Sheets("hi-H0" & col).Range("K2").Value et Sheets("contantes").Cells(8, col).Value ne sont pas vides et quand je lance mon programme, leurs valeurs s'affichent bien dans la fenetre des variables locales.

Merci d'avance pour votre aide !