cs_dolu74200
Messages postés5Date d'inscriptionmercredi 10 décembre 2008StatutMembreDernière intervention11 mars 2009
-
9 mars 2009 à 20:58
cs_dolu74200
Messages postés5Date d'inscriptionmercredi 10 décembre 2008StatutMembreDernière intervention11 mars 2009
-
11 mars 2009 à 17:50
Bonjours
Je commence tout juste la programation et me voila déjà confronté à une erreur. Je me vois par consequent obligé de vous demander de l'aide.
Lorsque j'essaie d'executer cette macro j'ai un message d'erreur :"erreur d'execution 1004" pourtant j'ai beau relir le code je ne trouve pas d'erreur, mais j'ai commencé la programation aujourd'hui ceux sont surement des fautes énormes. pouvez vous me les indiquer svp.
' programme 2
' phytoplancton
Dim n As Integer
Sub ini()
'on efface les anciennes valeurs
Range("B2:B1002").Select
Selection.Value = ""
Range("C2:C1002").Select
Selection.valuue = ""
'population initiale de carbone mort
Cells(2, 2).Value = 1000000000000#
'population initiale de phytoplancton
Cells(2, 3).Value = 10000000000#
n = 2
End Sub
Function phyto()
Cells(n + 1, 3).Value = Cells(n, 3).Value _
* Cells(2, 11).Value _
* Cells(3, 11).Value
'phyto + 1 = phyto * reprod * mort
End Function
Function carbone()
Cells(n + 1, 2).Value = Cells(n, 2).Value _
- Cells(n + 1, 3).Value - Cells(n, 3).Value _
* Cells(4, 11).Value
' carbone n + 1 = carbone mort n - phyto n + 1 - phyto n * coef carbone
End Function
Sub generation()
Application.Run [phyto]
Application.Run [carbone]
n = n + 1
End Sub
Sub boucle()
For compteur = 0 To 1000
generation
Calculate
Next compteur
End Sub
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 10 mars 2009 à 00:58
Salut
Le VB de Excel est du VBA, pas du .Net --> modif catégorie
1004 --> Texte de l'erreur ?
Sur quelle ligne l'erreur apparait-elle ? Dans quelle Sub.Function ?