Erreur 1004
elima
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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