Erreur 1004 Code VBA

Résolu/Fermé
la_defense - 16 nov. 2010 à 09:28
la_defense Messages postés 13 Date d'inscription mercredi 27 octobre 2010 Statut Membre Dernière intervention 6 décembre 2010 - 16 nov. 2010 à 13:33
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.


A voir également:

2 réponses

cousinhub29 Messages postés 881 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 16 avril 2024 333
16 nov. 2010 à 13:05
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 :

"=R1C<>"""" R21C3<>"""" 


PS, pour mettre du code, utilise la balise qui ressemble à <>, dans la barre....

@ te relire
0
la_defense Messages postés 13 Date d'inscription mercredi 27 octobre 2010 Statut Membre Dernière intervention 6 décembre 2010
16 nov. 2010 à 13:33
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
0