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