Insertion formule dans cellule vide
Résolu
tibouns
-
ShaBoo Messages postés 406 Statut Membre -
ShaBoo Messages postés 406 Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
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. -
