Erreur #NAME lors de la définition de la formule de cellule via VBA.

Question

J'écris une macro qui me demande d'obtenir la moyenne des valeurs dans une colonne avec un nombre inconnu de lignes. Je l'utilise pour obtenir le numéro de la dernière rangée:

Dim lastRow As Long 
lastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 

Cela fonctionne. Ce qui ne fonctionne pas est lorsque je tente de l'utiliser ici:

Range("B2").Select 
ActiveCell.FormulaR1C1 = "=AVERAGE('table1'!AM2:AM" & lastRow & ")" 

Faire cela, j'obtenir un résultat de #NAME?. Comment puis-je réparer cela?

Answer 1

Remplacez ActiveCell.FormulaR1C1 par ActiveCell.Formula puisque vous utilisez la notation A1 de base et non R1C1.