Erreur lors de l'execution d'une macro [Résolu]

Signaler
Messages postés
5
Date d'inscription
mercredi 10 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
-
Messages postés
5
Date d'inscription
mercredi 10 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
-
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

Messages postés
20
Date d'inscription
mercredi 6 juin 2007
Statut
Membre
Dernière intervention
11 juin 2009

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
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
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 ?
Messages postés
5
Date d'inscription
mercredi 10 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009

merci ca marche maintenant
bye