=SI(ET(GAUCHE(B19;5)<>"Total";B19<>"");K20*$F$7;"")
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
[L:L].Clear 'RAZ
With PivotTables(1).TableRange1
.Columns(10).Copy .Columns(11) 'pour les formats
.Columns(11) = "=K18*F$7"
.Cells(1, 11) = "Budget ventilé"
.Columns(11).NumberFormat = "0.00"
End With
Application.EnableEvents = True
End Sub
Oui j'avais mis cette fonction pour forcer le recalcul mais c'est inutile, je viens de l'enlever.Une question cependant, quel est l'intérêt de la formule =AUJOURDHUI() ?
La macro ne s'active-t-elle pas au changement de filtre ?