Re..
Tu as testé le classeur en #4 ??
Bonjour,
Données/Filtre avancé.
Dans ton cas, remplace E11 par E20 par ex
A vérifier mais ça fonctionne chez moi (Excel 2010)
Cordialement
Regarde la pièce jointe 999653
Re...oui c'est ok en #4.
Mes questions 1 et 3 sont ok, la question 2 vous inspire t-elle ?
Merci
Re...
Pourquoi mettre la formule par vba ? La réponse est immédiate avec la formule en E3
Re.Je souhaite faire disparaître les formules avant de circulariser ce fichier.
Private Sub Worksheet_Calculate()
[e3] = [SUBTOTAL(103,e6:e5000)]
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
If Target.Column = 5 And Target.Row > 5 Then [e3] = [SUBTOTAL(103,e6:e5000)]
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub