Posez votre question Signaler

Erreur VBA commande [Résolu]

2pax.cruz - Dernière réponse le 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...
Lire la suite 

Erreur VBA commande »

3 réponses
Réponse
+0
moins plus
Krysstof 1083Messages postés 18 février 2009Date d'inscription 23 août 2010Dernière intervention 1 juil. 2010 à 14:22
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]"

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
2pax.cruz 1 juil. 2010 à 14:43
Je voulais qu'on puisse encore voir les différentes composantes du calcul.

Mais bon, tant que ça marche...


Merci.

 Ajouter un commentaire
Krysstof- 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
Ajouter un commentaire
Posez votre question
Ce document intitulé « Erreur VBA commande » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?