Erreur VBA commande

Résolu
2pax.cruz -  
Krysstof Messages postés 1489 Date d'inscription   Statut Membre Dernière intervention   -
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

Krysstof Messages postés 1489 Date d'inscription   Statut Membre Dernière intervention   294
 
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]"
0
2pax.cruz
 
Je voulais qu'on puisse encore voir les différentes composantes du calcul.

Mais bon, tant que ça marche...


Merci.
0
Krysstof Messages postés 1489 Date d'inscription   Statut Membre Dernière intervention   294
 
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
0