Discussion :

[iliesss]

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

Code :

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

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 :

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

=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 :

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

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

Merci

[nico84]

Bonjour,

Je pense que cela peut s'écrire ainsi :

Code :

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

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

[iliesss]

Bonjour

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

Code :

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

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