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
A voir également:
- Erreur 1004
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Une erreur s'est produite instagram ✓ - Forum Instagram