Erreur1004 erreur définie par l'application ou par l'objet
Résolu/Fermé
A voir également:
- Erreur 1004 vba erreur définie par l'application ou par l'objet
- Erreur définie par l'application ou par l'objet 1004 vba - Meilleures réponses
- Erreur d'exécution 1004 erreur définie par l'application ou par l'objet - Meilleures réponses
- Erreur 1004 - Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- Vba erreur 1004 erreur définie par l'application ou par l'objet ✓ - Forum - Excel
- Erreur 1004 Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- Erreur 1004 : Erreur définie par l'application ou par l'objet ✓ - Forum - Excel
3 réponses
chossette9
13 févr. 2013 à 16:57
- Messages postés
- 4239
- Date d'inscription
- lundi 20 avril 2009
- Statut
- Contributeur
- Dernière intervention
- 12 septembre 2014
13 févr. 2013 à 16:57
bonjour,
où se situe l'erreur ?
Normalement la ligne en erreur doit être surlignée. quelle est-elle ?
Cordialement.
où se situe l'erreur ?
Normalement la ligne en erreur doit être surlignée. quelle est-elle ?
Cordialement.
bonjour,
on ne me souligne aucune ligne,
Cordialement
on ne me souligne aucune ligne,
Cordialement
chossette9
13 févr. 2013 à 17:05
- Messages postés
- 4239
- Date d'inscription
- lundi 20 avril 2009
- Statut
- Contributeur
- Dernière intervention
- 12 septembre 2014
13 févr. 2013 à 17:05
Bonjour,
déjà, la première dimension du tableau est définie de 1 à 3000, et ensuite tu fais une boucle avec i= 0.
Il faut commencer à i=1.
Cordialement.
déjà, la première dimension du tableau est définie de 1 à 3000, et ensuite tu fais une boucle avec i= 0.
Il faut commencer à i=1.
Cordialement.
chossette9
13 févr. 2013 à 17:10
- Messages postés
- 4239
- Date d'inscription
- lundi 20 avril 2009
- Statut
- Contributeur
- Dernière intervention
- 12 septembre 2014
13 févr. 2013 à 17:10
Ça c'est le tableau qui est mal défini.
le format double correspond à un format numérique. Si vous avez des valeurs numériques et du texte, il vaut mieux définir le tableau en String.Donc
le format double correspond à un format numérique. Si vous avez des valeurs numériques et du texte, il vaut mieux définir le tableau en String.Donc
Dim CRD() As String
vbastyle
Modifié par vbastyle le 30/12/2014 à 14:37
- Messages postés
- 1
- Date d'inscription
- mardi 30 décembre 2014
- Statut
- Membre
- Dernière intervention
- 30 décembre 2014
Modifié par vbastyle le 30/12/2014 à 14:37
Bonjour à tous,
j'ai le même problème. J'ai tapé une formule Excel en enregistrant une macro, avant elle marchait mais plus maintenant.
Formule Excel :
=SI($B$1=2015;RECHERCHEV(2015;Recap!A2:Q1014;2;0);SI($B$1=2014;RECHERCHEV(2014;Recap!A2:Q1014;2;0);SI($B$1=2013;RECHERCHEV(2013;Recap!A2:Q1014;2;0);SI($B$1=2012;RECHERCHEV(2012;Recap!A2:Q1014;2;0);SI($B$1=2011;RECHERCHEV(2011;Recap!A2:Q1014;2;0);SI($B$1=2010;RECHERCHEV(2010;Recap!A2:Q1014;2;0);SI($B$1=2009;RECHERCHEV(2009;Recap!A2:Q1014;2;0);"")))))))
Macro vba :
[début de ma sub...]
Worksheets("Reporting").Activate
Range("C6").Select
ActiveCell.FormulaR1C1 = _
"=IF(R1C2=2015,VLOOKUP(2015,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2014,VLOOKUP(2014,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2013,VLOOKUP(2013,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2012,VLOOKUP(2012,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2011,VLOOKUP(2011,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2010,VLOOKUP(2010,Recap!R[-4]C[-2]:R[1008]C[14],2,0),I" & "009,VLOOKUP(2009,Recap!R[-4]C[-2]:R[1008]C[14],2,0),"""")))))))"
Range("C7").Select
End Sub
"Erreur défini par l'application ou l'objet"
Toute ma formule, depuis "=IF jusqu'à ")))))))" est surligné en jaune!
Quelqu'un pourrait-il m'aider ?
Merci d'avance
j'ai le même problème. J'ai tapé une formule Excel en enregistrant une macro, avant elle marchait mais plus maintenant.
Formule Excel :
=SI($B$1=2015;RECHERCHEV(2015;Recap!A2:Q1014;2;0);SI($B$1=2014;RECHERCHEV(2014;Recap!A2:Q1014;2;0);SI($B$1=2013;RECHERCHEV(2013;Recap!A2:Q1014;2;0);SI($B$1=2012;RECHERCHEV(2012;Recap!A2:Q1014;2;0);SI($B$1=2011;RECHERCHEV(2011;Recap!A2:Q1014;2;0);SI($B$1=2010;RECHERCHEV(2010;Recap!A2:Q1014;2;0);SI($B$1=2009;RECHERCHEV(2009;Recap!A2:Q1014;2;0);"")))))))
Macro vba :
[début de ma sub...]
Worksheets("Reporting").Activate
Range("C6").Select
ActiveCell.FormulaR1C1 = _
"=IF(R1C2=2015,VLOOKUP(2015,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2014,VLOOKUP(2014,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2013,VLOOKUP(2013,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2012,VLOOKUP(2012,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2011,VLOOKUP(2011,Recap!R[-4]C[-2]:R[1008]C[14],2,0),IF(R1C2=2010,VLOOKUP(2010,Recap!R[-4]C[-2]:R[1008]C[14],2,0),I" & "009,VLOOKUP(2009,Recap!R[-4]C[-2]:R[1008]C[14],2,0),"""")))))))"
Range("C7").Select
End Sub
"Erreur défini par l'application ou l'objet"
Toute ma formule, depuis "=IF jusqu'à ")))))))" est surligné en jaune!
Quelqu'un pourrait-il m'aider ?
Merci d'avance