Insertion formule dans cellule vide

[Résolu/Fermé]
Signaler
-
Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Statut
Membre
Dernière intervention
5 septembre 2009
-
Bonjour,
Je cherche à entrer le résultat d'une boucle dans une cellule vide. Voici la partie du programme qui bloque:

essai = 0
npas = Range("A12")
For i = 11 To 11 + npas - 1
j = i + 1
y = Range("A" & j)
z = Range("F" & i)
essai = essai + y * z

Next i
Range("G11").Select
ActiveCell.FormulaR1C1 = "=" & essai</gras>

npas, y et z sont des nombres et G11 est une cellule vide
Excel surligne la dernière ligne et m'indique le message d'erreur suivant : "erreur d'exécution 1004, erreur definie par l'application ou par l'objet"
Est ce que qqn saurait résoudre ce pb???
merci d'avance

2 réponses

Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Statut
Membre
Dernière intervention
5 septembre 2009
49
Bonjour,

Tu devrais essayer ceci :

essai = 0
npas = Range("A12")
For i = 11 To 11 + npas - 1
  j = i + 1
  y = Range("A" & j)
  z = Range("F" & i)
  essai = essai + y * z
Next i

'Range("G11").Select
'ActiveCell.FormulaR1C1 = "=" & essai

Range("G11") = essai


En effet, ta var essai est le resultat d'un calcul effectué dans ta boucle et non pas une formule.
effectivement ca marche!!
Merci pour la solution et la rapidité!!!
Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Statut
Membre
Dernière intervention
5 septembre 2009
49
un p'tit résolu ???