Erreur lors de l'execution d'une macro

Résolu
cs_dolu74200
Messages postés
5
Date d'inscription
mercredi 10 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
- 9 mars 2009 à 20:58
cs_dolu74200
Messages postés
5
Date d'inscription
mercredi 10 décembre 2008
Statut
Membre
Dernière intervention
11 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

merci

dolu

3 réponses

mamash_bek
Messages postés
20
Date d'inscription
mercredi 6 juin 2007
Statut
Membre
Dernière intervention
11 juin 2009
1
10 mars 2009 à 10:14
Sub ini()
'on efface les anciennes valeurs
Range("B2:B1002").Select
Selection.Value = ""
Range("C2:C1002").Select
Selection.valuue = ""

retire le "u" en trop.
De plus tu n'es pas obligé d' utiliser un

Application.Run pour appeler tes fonction phyto et carbone.

Sinon le reste fonctionne correctement.
Sur la fonction ou sub Calculate tu as peut etre aussi une erreur mais, tu ne nous as pas fourni le code
3
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
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 ?
0
cs_dolu74200
Messages postés
5
Date d'inscription
mercredi 10 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009

11 mars 2009 à 17:50
merci ca marche maintenant
bye
0