Erreur 1004

Fermé
elima - 4 juin 2009 à 12:26
 Utilisateur anonyme - 4 juin 2009 à 13:30
Bonjour,
je débute et je ne sais pas ce que signifie l'erreur 1004
je dois fabriquer un matrice pour la coller dans une feuille Agreg2
cette matrice est un calcul de variation sur certaines données.
voilà mon code, pouvez-vous m'aider?




Option Base 1
Sub Variation_Spreads()
Dim Matrice_Variations(120, 25) As Double
Ligne_départ = 4
colonne_départ = 2
For Each colonne In Rows
If colonne_départ <= 48 Then
For Each ligne In Rows
If Cells(Ligne_départ, colonne_départ - 1).Value <= 17 Then
Matrice_Variations(i, j) = Selection.FormulaR1C1 = "= (RC - R[-1]C)/R[-1]C "
Ligne_départ = Ligne_départ + 1
Else
Ligne_départ = Ligne_départ + 3
End If
Next ligne
colonne_départ = colonne_départ + 2
Else
For Each ligne In Rows
If Cells(Ligne_départ, colonne_départ - 2).Value <= 17 Then
Matrice_Variations(i, j) = Selection.FormulaR1C1 = "= (RC - R[-1]C)/R[-1]C "
Ligne_départ = Ligne_départ + 1
Else
Ligne_départ = Ligne_départ + 3
End If
Next ligne
End If
Next colonne
Worksheets(Agreg2).Activate
Ma_plage = Range(Cells(1, 1), Cells(120, 25))
Ma_plage.Value = Matrice_Variations
End Sub

1 réponse

Utilisateur anonyme
4 juin 2009 à 13:30
Bonjour,

Dans ton code il y a cette ligne étrange:
Matrice_Variations(i, j) = Selection.FormulaR1C1 = "= (RC - R[-1]C)/R[-1]C "


Qu'est elle censée faire ?
Veux tu mettre dans ton tableau des valeurs de cellules ?

Par ailleurs on peut simplifier le code, mais chaque chose en son temps.

A+
0