Erreur 1004 Code VBA
Résolu
la_defense
-
la_defense Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
la_defense Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis bloquée avec une de mes macros.
J'ai regardé sur le forum déjà pour essayer de trouver mon erruer, mais rien ne correspond aux différentes solutions qui sont proposées.
Je me permets donc de vous soumettre ma question.
J'ai une feuille excel avec des formules dont je veux automatiser le calcul par macro.
Comme les formules sont compliquées et pour être sure de ne pas faire d'erruer, j'ai enregistrer la macro automatiquement (Outils/ Macro/ Nouvelle Macro, j'ai mis ma formule dans mles cellules et Arreter l'enregistrement).
Mais voila, dès que je veux executer la macro, a la première ligne, ça met "Erreur d'execution 1004: Erreur générée par l'application ou l'objet". (sur la ligne en gras ci-dessous).
Ci dessous mon code (je n'ai mis que les deux premières lignes)
Sheets("Liaisons_extractions").Select
Range("D21").Select
ActiveCell.FormulaR1C1 = _
"=R1C<>"""" R21C3<>"""" INDEX(Saisie_données_contrat!R2C11:R151C18,MATCH(Liaisons_extractions!R1C,Saisie_données_contrat!R2C1:R151C1,0),MATCH(Liaisons_extractions!R21C3,Saisie_données_contrat!R1C11:R1C18,0))=""Oui"" R2C&"" ""&R21C3 Recuperation_des_valeurs!"
Range("D22").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = _
"=R1C<>"""" R21C3<>"""" INDEX(Saisie_données_contrat!R2C11:R151C18,MATCH(Liaisons_extractions!R1C,Saisie_données_contrat!R2C1:R151C1,0),MATCH(Liaisons_extractions!R21C3,Saisie_données_contrat!R1C11:R1C18,0))=""Oui"" R2C&"" ""&R21C3 Recuperation_des_valeurs!"
End Sub
Pourriez-vous m'aider? Je en vois vraiment pas quoi faire d'autant plus que c'est vba qui a généré le code par enregistrement automatique et maintenant il ne veut pas fonctionner.
Il n'y a pas de variables non déclarées.
D'avance merci pour votre aide. Je suis totalement bloquée.
Je suis bloquée avec une de mes macros.
J'ai regardé sur le forum déjà pour essayer de trouver mon erruer, mais rien ne correspond aux différentes solutions qui sont proposées.
Je me permets donc de vous soumettre ma question.
J'ai une feuille excel avec des formules dont je veux automatiser le calcul par macro.
Comme les formules sont compliquées et pour être sure de ne pas faire d'erruer, j'ai enregistrer la macro automatiquement (Outils/ Macro/ Nouvelle Macro, j'ai mis ma formule dans mles cellules et Arreter l'enregistrement).
Mais voila, dès que je veux executer la macro, a la première ligne, ça met "Erreur d'execution 1004: Erreur générée par l'application ou l'objet". (sur la ligne en gras ci-dessous).
Ci dessous mon code (je n'ai mis que les deux premières lignes)
Sheets("Liaisons_extractions").Select
Range("D21").Select
ActiveCell.FormulaR1C1 = _
"=R1C<>"""" R21C3<>"""" INDEX(Saisie_données_contrat!R2C11:R151C18,MATCH(Liaisons_extractions!R1C,Saisie_données_contrat!R2C1:R151C1,0),MATCH(Liaisons_extractions!R21C3,Saisie_données_contrat!R1C11:R1C18,0))=""Oui"" R2C&"" ""&R21C3 Recuperation_des_valeurs!"
Range("D22").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = _
"=R1C<>"""" R21C3<>"""" INDEX(Saisie_données_contrat!R2C11:R151C18,MATCH(Liaisons_extractions!R1C,Saisie_données_contrat!R2C1:R151C1,0),MATCH(Liaisons_extractions!R21C3,Saisie_données_contrat!R1C11:R1C18,0))=""Oui"" R2C&"" ""&R21C3 Recuperation_des_valeurs!"
End Sub
Pourriez-vous m'aider? Je en vois vraiment pas quoi faire d'autant plus que c'est vba qui a généré le code par enregistrement automatique et maintenant il ne veut pas fonctionner.
Il n'y a pas de variables non déclarées.
D'avance merci pour votre aide. Je suis totalement bloquée.
A voir également:
- Erreur 1004 Code VBA
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
2 réponses
Bonjour,
Et si tu nous mettais la formule inscrite dans la cellule, afin qu'on comprenne le code (parce que là, j'ai du mal à comprendre le :
PS, pour mettre du code, utilise la balise qui ressemble à <>, dans la barre....
@ te relire
Et si tu nous mettais la formule inscrite dans la cellule, afin qu'on comprenne le code (parce que là, j'ai du mal à comprendre le :
"=R1C<>"""" R21C3<>""""
PS, pour mettre du code, utilise la balise qui ressemble à <>, dans la barre....
@ te relire
Ah oui, c'est vrai.
Alors la formule dans ma cellule est la suivante:
=SI(D$1<>"";SI($C$21<>"";SI(INDEX(Saisie_données_contrat!$K$2:$R$151;EQUIV(Liaisons_extractions!D$1;Saisie_données_contrat!$A$2:$A$151;0);EQUIV(Liaisons_extractions!$C$21;Saisie_données_contrat!$K$1:$R$1;0))="Oui";RECHERCHEV(D$2&" "&$C$21;Recuperation_des_valeurs!$A:$K;5;0);"");"");"")
Alors:
Dans ma feuille "Liaisons extractions" je veux afficher le resultat de la RechercheV, à la condition que les cellules C21 et D1 ne soient pas vides et si la valeur de l'intersection résultat d'Index est égale à "Oui".
Et quand j'ai enregistré automatiquement la macro, le résultat est celui de mon premier message
Merci de votre aide
Alors la formule dans ma cellule est la suivante:
=SI(D$1<>"";SI($C$21<>"";SI(INDEX(Saisie_données_contrat!$K$2:$R$151;EQUIV(Liaisons_extractions!D$1;Saisie_données_contrat!$A$2:$A$151;0);EQUIV(Liaisons_extractions!$C$21;Saisie_données_contrat!$K$1:$R$1;0))="Oui";RECHERCHEV(D$2&" "&$C$21;Recuperation_des_valeurs!$A:$K;5;0);"");"");"")
Alors:
Dans ma feuille "Liaisons extractions" je veux afficher le resultat de la RechercheV, à la condition que les cellules C21 et D1 ne soient pas vides et si la valeur de l'intersection résultat d'Index est égale à "Oui".
Et quand j'ai enregistré automatiquement la macro, le résultat est celui de mon premier message
Merci de votre aide
