XL 2013 Sous.Total et plage dynamique

[michir]

Bonjour
je dois utliser la fonction sous.total, soit pour faire de sous totaux filtrés, soit pour compter le nombre des enregistrements par exemple:
=SOUS.TOTAL(3;B4:B50)&" Lignes filtrées" pour compter le nombre de cellules saisies de la colonne B
mais lorsque ma plage se modifie (B4:B100 par exemple) le résultat reste figé à B5:B50
comment provoquer la mise à jour en temps réel ?
Merci à tous

 

[Lone-wolf]

Bonjour michir

Il faut modifier la formule par : =SOUS.TOTAL(3;B4:B80000)

 

[chris]

Bonjour à tous

Ou mettre ta plage sous forme de tableau et utiliser les formules tableau : cela suivra automatiquement l'ajout ou le suppression de lignes...

 

[Lone-wolf]

Re

Une proposition par VBA

EDIT: bonjour chris

Option Explicit
Dim derlig&, plage As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    derlig = Range("a" & Rows.Count).End(xlUp).Row
    Set plage = Range("a1:j" & derlig)
    plage.AutoFilter Field:=1, Criteria1:=ActiveCell.Value
    [L1] = WorksheetFunction.Subtotal(3, Range("b2:b" & derlig))
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    derlig = Range("a" & Rows.Count).End(xlUp).Row
    Set plage = Range("a1:j" & derlig)

    If Target.Address = "$A$1" Then
        plage.AutoFilter
        [L1] = ""
    Else
        Exit Sub
    End If
End Sub

 

[michir]

merci à tous