Erreur 1004 VBA

Résolu/Fermé

rorolidalgo2 Messages postés 4 Date d'inscription lundi 8 janvier 2018 Statut Membre Dernière intervention 8 janvier 2022 - 8 janv. 2018 à 17:05
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 9 janv. 2018 à 00:22

Bonjour,
J'ai cette formule dans un code qui me fait tourner en bourrique. J'obtiens une "erreur d'exécution 1004 vba erreur definie par l'application ou l'objet":
maPlage.Cells(i, 1).Formula = "=RC[" & b & "]*" & CSng(maPlageCleRepart.Cells(b, 1)) & ""
En gros, je fais référence à une cellule située sur la même ligne (RC.....), que je dois multiplier par un facteur que je lis dans une plage annexe.
Si je remplace le "CSng(maPlageCleRepart.Cells(b, 1)) & "" par le chiffre 2 par ex je n'ai pas d'erreur. Dès que je reparamètre la valeur, ça déconne. J'ai essayé d'enlever Csng =>rien. d'enlever le &"" à la fin =>rien. En revanche, si je mets CLng au lieu de CSng ça fonctionne!! mais je ne veux pas un entier, je veux une valeur décimale (ce sont des pourcentages que j'ai dans ma plage annexe).
Quelqu'un pense à une solution?
Merci

NB: J'ai EXCEL 2016 sous Windows10

A voir également:

Erreur 1004 VBA
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Incompatibilité de type vba ✓ - Forum Programmation
Erreur 3000 france tv - Forum Lecteurs et supports vidéo

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
9 janv. 2018 à 00:13

Bonjour

Essaies avec :

maPlage.Cells(i, 1).FormulaR1C1 = "=RC[" & b & "]*" & Replace(CStr(CSng(maPlageCleRepart.Cells(b, 1).Value)), ",", ".")

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
9 janv. 2018 à 00:22

Ou bien :

maPlage.Cells(i, 1).FormulaR1C1Local = "=LC(" & b & ")*" & CSng(maPlageCleRepart.Cells(b, 1).Value)

Discussions similaires

VBA erreur 1004

MACRO : Problème " Erreur d'exécution '1004' "

"L'indice n'appartient à la sélection" + VBA

[excel] erreur 1004 : fichier non enregistré.

Erreur 1004 - Erreur définie par l'application ou par l'objet