Bonjour Monique, Ândré, Yeahou, Bunz, le Forum
Je viens de suivre un peu ce fil, oui l'idée de Yeahou n'est pas in-interressante, mais ouf la mise en oeuvre que tu as utilisé... C'est de la grosse artillerie !! lol...
Non, je propose ceci, en plus léger avec deux bugs évité (1 si le classeur actif est un autre, 2 si il y a un filtre mais qu'aucun critère n'est filtré)
Ce qu'il faut simplement c'est mettre par exemple en "IV2" la valeur 1 et en "IV3" la Formule =IV2*2... Puis on peut même masquer cette colonne IV...
En fait on a besoin de cette mini formule pour que l'évènement Calculate puisse fonctionner... (L'Option d'Excel Mode Calcul Paramétrée en Automatique, of course)
Le reste est simple, il suffit de placer ce code dans le Private Module de La Feuille en Question
Private Sub Worksheet_Calculate()
With Me
If .AutoFilterMode Then
If .FilterMode = True Then
.Range("C1").Formula = "'" & .AutoFilter.Filters(1).Criteria1
Else
.Range("C1") = "Pas de Filtre actif"
End If
End If
End With
End Sub
C'est, à mes yeux bien plus simple, le OnTime me parait bien lourd, mais si Bunz s'oriente sur ce choix alors il faut alors penser à optimiser pour éviter les deux Bug avec un Set sur "ThisWorkBook" et un Test sur FilterMode.
Bon Samedi à Tous et Toutes
@+Thierry