Erreur1004 erreur définie par l'application ou par l'objet [Résolu/Fermé]

Signaler
-
 Irroks -
Bonjour,
l'erreur 1004 erreur définie par l'application ou par l'objet je ne sais vraiment pas quoi faire voici mon code
Option Explicit
Private Sub CommandButton1_Click()
Dim CRD() As Double
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim i As Integer

ReDim CRD(1 To 3000, 3)
j = 1
Do While j < 300 And Application.ThisWorkbook.Worksheets("stock").Cells(1, j) <> "CAPITAL_RESTANT_DU"
j = j + 1
Loop
k = 1
Do While k < 300 And Application.ThisWorkbook.Worksheets("stock").Cells(1, k) <> "TX_PRET"
k = k + 1
Loop
l = 1
Do While l < 300 And Application.ThisWorkbook.Worksheets("stock").Cells(1, l) <> "DUREE_RESTANTE"
l = l + 1
Loop
For i = 0 To 3000
CRD(i, 1) = Application.ThisWorkbook.Worksheets("stock").Cells(i, j)
CRD(i, 2) = Application.ThisWorkbook.Worksheets("stock").Cells(i, k)
CRD(i, 3) = Application.ThisWorkbook.Worksheets("stock").Cells(i, l)
Next
i = i + 1


End Sub
en fait ce code permet de chercher une colonne et de la coller dans une tableau
merci de votre aide :)




A voir également:

3 réponses

Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 322
bonjour,

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
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 322
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.
Bonjour,
c'est corrigé , il y a un nouveau genre d'erreur qui ressort :" erreur13 incompatibilité de type"
Cordialement
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 322
Ç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
Dim CRD() As String
ça marche merci infiniment .
Cordialement
Messages postés
1
Date d'inscription
mardi 30 décembre 2014
Statut
Membre
Dernière intervention
30 décembre 2014

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
A tu trouver la réponse j'ai exactement le même problème