Discussion :

[Chatvador]

Bonjour à tous,

Je souhaiterais coller dans une cellule la formule VBA suivante

Code :

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

Application.Average(Range(Cells(a + 1, 40 + i), Cells(b - 1, 40 + i)))

avec a, b et i des variables récupérées au préalable .

Comment faire pour coller cette formule théorique en vraie formule Excel dans ma cellule?

Merci pour votre aide,

[gFZT82]

Bonjour,

Pour affecter la formule à la cellule A1 :

Code :

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

1
2
3
Dim MaPlage As Range
    Set MaPlage = Range(Cells(a + 1, 40 + i), Cells(b - 1, 40 + i))
    Range("A1").Formula = "=AVERAGE(" & MaPlage.Address & ")"

Cordialement.

[Chatvador]

Merci beaucoup, ça fonctionne parfaitement!