Erreur VBA commande

Résolu/Fermé
2pax.cruz - 1 juil. 2010 à 14:12
Krysstof Messages postés 1483 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 23 août 2010 - 1 juil. 2010 à 14:44
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 1483 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 23 août 2010 294
Modifié par Krysstof le 1/07/2010 à 14:27
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
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 1483 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 23 août 2010 294
1 juil. 2010 à 14:44
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