Ligne Absolue ou référence semi-relative Vba

bonjour
voici mon code qui calcule le sous total d'une plage dynamique

Code:

---

1 2 3 4 5 6 7

Sub subtotal() Dim Rg As Excel.Range Dim Lr As Integer Lr = Cells(Rows.Count, 1).End(xlUp).Row Set Rg = Range("A" & Lr) Rg.Offset(1, 0).Formula = "=Subtotal(9,A$2:" & Rg.Address & ")" End Sub

---

Le résultât du code est une formule absolue (ligne et colonne)

Code:

---

=SOUS.TOTAL(9;A$2:$A$13)

---

Svp comment modifier le code pour avoir une formule référence semi-relative (uniquement la ligne)

Code:

---

=SOUS.TOTAL(9;A$2:A$13)

---

Merci

Bonjour,

Je pense que cela peut s'écrire ainsi :

Code:

---

Rg.Offset(1, 0).Formula = "=Subtotal(9,A$2:A$" & lr & ")"

---

Bonjour

merci Mr Nico c'est une bonne réponse et après une recherche j'ai trouver une autre écriture

Code:

---

Rg.Offset(1, 0).Formula = "=Subtotal(9,A$2:" & Rg.Address(columnabsolute:=False) & ")"

---