Sub Filtrer_les_1()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
If FilterMode Then ShowAllData 'si la feuille est filtrée
With Range("Q6", Range("Q" & Rows.Count).End(xlUp))
.Replace 1, "#N/A", xlWhole
.EntireRow.Hidden = True 'masque tout
.SpecialCells(xlCellTypeConstants, 16).EntireRow.Hidden = False 'affiche
.Replace "#N/A", 1
End With
End Sub
Sub RAZ()
Rows.Hidden = False 'affiche tout
End Sub
Bonsoir phil69970
Re
Re
ReRe
Désolé mais je comprends pas ce que tu veux
Le fichier du post # 2 fait ce que tu demandes mais cela ne te convient pas
Et le tri avec le fichier du post #4 et/ou post # 7 ne te vas pas non plus donc je comprends ce que tu veux faire
Montre moi quel résultat tu attends .....
@Phil69970
Sub Filtrer_les_1()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
If FilterMode Then ShowAllData 'si la feuille est filtrée
With Range("Q6", Range("Q" & Rows.Count).End(xlUp))
.Replace 1, "#N/A", xlWhole
.EntireRow.Hidden = True 'masque tout
.SpecialCells(xlCellTypeConstants, 16).EntireRow.Hidden = False 'affiche
.Replace "#N/A", 1
End With
End Sub
Sub RAZ()
Rows.Hidden = False 'affiche tout
End Sub