erreur 438

[radix57]

Bonjour,

Je viens encore une fois a votre rencontre, mon problème est le suivant :

j'ai une boucle for ... next ou je ne fais que copier un certain nombre de fois une formule dans des cellules => voici le code

For i = 14 To fincolonne - 1 Step 3

Cells(2, i).Select
ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-2]+RC[-1]"
ActiveSheet.Copy
Range(Cells(3, ActiveCell.Column()), Cells(finligne, ActiveCell.Column())).Select
ActiveCell.Paste ====> erreur 438
Next i

ce morceau de code a fonctionné une fois et depuis lorsque je l'execute il me donne un message d'erreur 438 sur la ligne ActiveCell.Paste.

Avez vous une idée du pourquoi ?

Merci de votre aide.

 

[ZON]

Salut à tous,

radix57 c'est normal que tu aies une erreur, tu essaies de copier ta feuille active dans une plage de cellule, c'est pas le cells(i,2) que tu veux copier plutôt ?


A+++

 

[Valérie]

Salut le radix57, Zon et le forum,

A mon avis il n'y a pas qu'une erreur tout d'abord c'est effectivement la feuille qui est copiée et non la cellule ensuite l'objet ActiveCell n'a pas Paste comme méthode mais PasteSpecial

Ce qui te donne un code du type :

For i = 14 To fincolonne - 1 Step 3

Cells(2, i).Select
ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-2]+RC[-1]"
ActiveCell.Copy
Range(Cells(3, ActiveCell.Column()), Cells(finligne, ActiveCell.Column())).Select
ActiveCell.PasteSpecial xlPasteAll 'Si tu souhaites tout copier

Next i

@+
valérie

 

[radix57]

Merci pour votre aide.