Discussion :

[ALINE85]

Bonjour,
Est-ce possible de désactiver la case "Sélectionner tout" du mode Filtrer ?

Merci de votre réponse.

[SilkyRoad]

bonjour


Un exemple par macro.
Procédure à ajouter dans le module objet de la feuille contenant le filtre:

Code :

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

1
2
3
4
Private Sub Worksheet_Calculate()
    If Evaluate("=subtotal(3,A:A)") = Range("A1").End(xlDown).Row Then _
        Application.Undo
End Sub

bonne journée
michel