Erreur 1004 VBA
Résolu
rorolidalgo2
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
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
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 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
maPlage.Cells(i, 1).FormulaR1C1Local = "=LC(" & b & ")*" & CSng(maPlageCleRepart.Cells(b, 1).Value)