Erreur VBA commande

Résolu/Fermé
Signaler
-
Messages postés
1483
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
23 août 2010
-
Bonjour,


j'ai un soucis avec cela....


For i = 1 To Taille
MachineTime = Cells(12, i + 4)
ChangeOver = Cells(11, i + 4)
SStops = Cells(10, i + 4)
QtySurBns = Cells(8, i + 4)
ExpFormule = MachineTime & "-" & ChangeOver & "-" & SStops & "-" & QtySurBns
Cells(13, i + 4).Formula = "=" & ExpFormule
Next i



Excel me rapporte une erreur à hauteur de Cells(13, i + 4).Formula = "=" & ExpFormule

Je comprends pas... Du tout...

L'erreur : "Application-defined ou object-defined error"


Merci... Sauvez moi...

2 réponses

Messages postés
1483
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
23 août 2010
289
hum, quelle est la logique dans ta volonté d'utiliser ".Formula"??

Ton code tel qu'il est fait revient à faire :

Cells(13, i + 4).Formula = "=" & "1-2-4-5"

donc autant faire
Cells(13, i + 4) = MachineTime - ChangeOver - SStops - QtySurBns
Au moins ta cellule 13,i+4 contiendra le résultat.

le code que tu utlise ne permet pas de faire une formule du type "=C5-D5-E5-F5" par exemple... est-ce ca que tu voulais faire?

si c'est ca que tu voulais faire essaye de mettre juste cette ligne dans ta boucle for

si c'est ca que tu veux faire, essaye simplement ca dans ta boucle for :

Cells(13, i + 4).FormulaR1C1 = "=RC[-1]-RC[-2]-RC[-3]-RC[-5]"
Je voulais qu'on puisse encore voir les différentes composantes du calcul.

Mais bon, tant que ça marche...


Merci.
Messages postés
1483
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
23 août 2010
289
j'ai modifié le commentaire apres, tu l'as peut-être pas vu, essaye ca :
Cells(13, i + 4).FormulaR1C1 = "=RC[-1]-RC[-2]-RC[-3]-RC[-5]"
dans ta boucle for