erreur d'execution 5, argument ou appel de procédure

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:

---

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 !

Salut.

Je ne comprends pas le compt(col) de 1 à 37 alors que tu comptes de 1 à 36... Es-tu sûr que tu as bien déclaré ton tableau de 1 à 37 et pas de 0 à 36?

Ne serait-il pas plus simple de passer par une fonction perso à passer aux différentes cellules?

Bonjour,

Quelle valeur a ta variable "mu" ? Elle doit obligatoirement être supérieure à 0.

Hervé.

tout d'abord, merci pour votre aide !

mu est toujours positif et prend différentes valeurs suivant les valeurs de col.

Je ne sais pas comment compte visual basic pour les tableaux. Je voulais qu'il compte de 1 a 36 donc j'ai déclaré jusque 37 pour être sûre.

Citation:

---

Ne serait-il pas plus simple de passer par une fonction perso à passer aux différentes cellules?

---

comment ça ?

Re,

Pour un tableau, tu peux commencer à n'importe quelle base : tableau(5 to 10) contient 6 éléments mais tu ne peux, dans ce cas, y faire référence qu'avec les indices correspondants c'est à dire de 5 à 10 et non à partir de 0ou 1.
Généralement dans Excel c'est en base 1 afin d'avoir une correspondance avec les cellules. Si il te faut un tableau de 37 éléments, tu le déclare comme tu as fais :

Code:

---

1 2	Dim compt(1 To 36) As Integer

---

Ce que veux dire Pierre :

Citation:

---

Ne serait-il pas plus simple de passer par une fonction perso à passer aux différentes cellules?

---

C'est que généralement, la partie calcul on l'isole du code en créant une fonction et en lui passant les arguments nécessaires comme par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Function MaFonction(H0 As Double, _ rho_weibull As Double, _ mu As Double, _ P As Double) As Double   MaFonction = H0 + (1 / rho_weibull * Math.Log(12 * mu)) ^ (1 / P)   End Function

---

et tu l'appelle de cette façon :

Code:

---

1 2	Sheets("houle_dirp").Cells(2, compt(col)).Value = MaFonction(H0, , rho_weibull, mu, P)

---

Pour les valeurs manqantes de ton exemple (P et mu) il faudrait que tu nous en donne la valeur au moment de l'erreur.

Hervé.

Oups,

Petite erreur :o(( comme ça :

Code:

---

1 2	Sheets("houle_dirp").Cells(2, compt(col)).Value = MaFonction(H0, rho_weibull, mu, P)

---

Désolé

hervé.

C'est bon !
En m'inspirant de ton code "mafonction" ça marche !

Merci beaucoup pour votre aide !!! :mrgreen: