FormulaLocal et étirer

Bonjour à tous,

une petite difficulté sur un code.

le but c'est d'écrire des formules dans des cases spécifiques puis de les étirer sur une plage déterminé.

Voici mon code:

Sub copier() 
Dim n As Integer
n = Application.WorksheetFunction.CountA(Feuil5.Range("A3:A999999"))

    Range("AC5").FormulaLocal = "=AB5-AA5"
    Range("AD5").FormulaLocal = "=AC5*(60*24)"
    Range("AE5").FormulaLocal = "=$AD5/H$5"
    Range("AF5").FormulaLocal = "=$AD5/I$5"

    Range("AC5:AF5").Select
    Selection.AutoFill Destination:=Range(Cells(6, 29), Cells(n, 32)), Type:=xlFillDefault

End Sub

Cela ne fonctionne pas...

mais je ne comprends pas mon erreur.

est-ce que ma fusion de Range et Cells pose problème?

Merci d'avance

Bonjour,

Rien de bien grave, mais pour l'autofill, la plage de destination doit contenir la plage de départ

Change la ligne ainsi :

Selection.AutoFill Destination:=Range(Cells(5, 29), Cells(n, 32)), Type:=xlFillDefault

Pour éviter de mélanger Range et Cells (qui ne gène pas), tu peux aussi faire :

Selection.AutoFill Destination:=Range("AC5:AF" & n), Type:=xlFillDefault

Bonne journée,

BI4ol

BI4ol a écrit :

Rien de bien grave, mais pour l'autofill, la plage de destination doit contenir la plage de départ

Ah ok, je ne savais pas...

MERCI