P
PF
Guest
Bonjour à toutes et à tous.
Voilà mon problème, lorsque je creer ma macro en indiquant une cellule, ex :
Range("F11").Select
Selection.FormulaR1C1 = "="
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)"
Range("F12").Select
Ma macro fonctionne. Lorsque je désire l'inclure dans mon programme et pour la bonne foncitonnalité de celui ci, je transforme ma macro comme suis :
y = count - 1
x = y - f
derniere.Cells(y, 3).Activate
derniere.Cells(y, 3).Select
'derniere.Cells(3, y).Activate
'derniere.Cells(3, y).Select
Selection.FormulaR1C1 = "="
ActiveCell.FomulaR1C1 = "SUM(R[-x]C:R[-1]C)"
L'ordinateur m'indique : Erreur 438.
Pourriez vous m'indiquez comment faire.
Merci d'avance.
Patrick
Voilà mon problème, lorsque je creer ma macro en indiquant une cellule, ex :
Range("F11").Select
Selection.FormulaR1C1 = "="
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)"
Range("F12").Select
Ma macro fonctionne. Lorsque je désire l'inclure dans mon programme et pour la bonne foncitonnalité de celui ci, je transforme ma macro comme suis :
y = count - 1
x = y - f
derniere.Cells(y, 3).Activate
derniere.Cells(y, 3).Select
'derniere.Cells(3, y).Activate
'derniere.Cells(3, y).Select
Selection.FormulaR1C1 = "="
ActiveCell.FomulaR1C1 = "SUM(R[-x]C:R[-1]C)"
L'ordinateur m'indique : Erreur 438.
Pourriez vous m'indiquez comment faire.
Merci d'avance.
Patrick