post doublon à supprimer

[FOURNIAL]

Désolé post déjà créé il y a quelques secondes, pas possible de le supprimer.

 

[gosselien]

Bonjour,

ceci (en colonne A) à adapter

P.

Option Explicit

Sub InverserFiltrage()
Dim col%, d As Object, i&, crit
col = 1 'colonne de filtrage, à adapter
Set d = CreateObject("Scripting.Dictionary")
With [A1].CurrentRegion 'à adapter
  For i = 2 To .Rows.Count
    If .Rows(i).Hidden Then d(.Cells(i, col).Text) = ""
  Next
  If d.Count Then crit = d.keys Else crit = "="
  .AutoFilter col, crit, xlFilterValues
End With
End Sub

 

[phlaurent55]

Bonjour à tous,

je viens d'apporter une réponse ici:
https://www.excel-downloads.com/threads/inverser-selection-filtre-resolu.20014167/

à+
Philippe