Insertion formule dans cellule vide

Résolu/Fermé
tibouns - 23 nov. 2007 à 09:36
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 - 23 nov. 2007 à 10:15
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

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
23 nov. 2007 à 09:42
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.
0
effectivement ca marche!!
Merci pour la solution et la rapidité!!!
0
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
23 nov. 2007 à 10:15
un p'tit résolu ???
0