Discussion :

[hawksidu]

Bonjour,

Je dispose d'un fichier excel qui après une première macro créé un tableau. Je voudrais copier une formule dans la dernière colonne de ce tableau. J'ai d'abord enregistré une macro qui réalise cette opération :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Macro4()
'
' Macro4 Macro
'
    ActiveCell.Offset(5, 7).Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=([@[S Original Estimate]]-([@[S Time Spent]]+[@[S Remaining Estimate]])/8)"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A21")
    ActiveCell.Range("A1:A21").Select
End Sub

Mon problème c'est que quand je veux lancer cette macro j'ai une erreur 1004 qui se stoppe sur cette instruction "ActiveCell.FormulaR1C1 = _
"=([@[S Original Estimate]]-([@[S Time Spent]]+[@[S Remaining Estimate]])/8)"

Et je ne comprend pas pourquoi.

Pouvez-vous m'aider ?
En vous remerciant :-)

[Menhir]

Déjà, un petit nettoyage de ton code (l'enregistreur automatique de macro, c'est bien, mais un peu retravailler le code derrière, c'est mieux) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Macro4()
    ActiveCell.Offset(5, 7).Range("A1:A21").FormulaR1C1 = "=([@[S Original Estimate]]-([@[S Time Spent]]+[@[S Remaining Estimate]])/8)"
End Sub

Mon problème c'est que quand je veux lancer cette macro j'ai une erreur 1004 qui se stoppe sur cette instruction "ActiveCell.FormulaR1C1 = _
"=([@[S Original Estimate]]-([@[S Time Spent]]+[@[S Remaining Estimate]])/8)"

Tu devrais mettre le texte du message d'erreur. Le code seul n'est pas très parlant.

A mon avis, le problème vient de ton ActiveCell de départ.
Toute ta macro est référencé sur la cellule sélectionnée au moment du lancement. Il suffit que tu en sélectionnes une autre pour que tout soit décalé.
Il vaudrait mieux que tu indiques la référence exacte de la cellule à traiter. Du coup, ta macro se résumerait à une seule ligne.

[hawksidu]

Bonjour,

Merci de ce retour l'erreur est la suivante : Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet

[BENNASR]

bonsoir
essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Selection.AutoFill Destination:=Range("A1:A21"), Type:=xlFillDefault