Aller sur la feuille VBA en faisant "ALT + F11"
-dans le bandeau, cliquer sur "insertion", choisissez "Module"
-Sélectionner et copier le texte ci-dessous et coller dans la partie droite du module.
Sub Filtrer()
Dim i As Long, j As Long, DerLig As Long, DerCol As Long
Dim ValeurIntrouvable As Boolean
Dim ValeurRecherchee As String
Application.ScreenUpdating = False
DerLig = Range("A" & Rows.Count).End(xlUp).Row
DerCol = Range("A1").End(xlToRight).Column
ValeurIntrouvable = True
ValeurRecherchee = InputBox("Veuillez saisir la valeur à rechercher")
If ValeurRecherchee <> "" Then
For i = 2 To DerLig
For j = 3 To DerCol
If Cells(i, j) = ValeurRecherchee Then
ValeurIntrouvable = False
Exit For
Else
ValeurIntrouvable = True
End If
Next j
If ValeurIntrouvable = True Then Rows(i).EntireRow.Hidden = True
Next i
End If
End Sub
Sub Demasquer()
Cells.EntireRow.Hidden = False
End Sub
-Il ne reste plus qu'à créer 2 boutons sur la feuille excel et de leur affecter à chacun l'une des 2 macros.
Evidemment, votre tableau doit être disposé de la même façon que le fichier de la demande initiale sinon il faudra l'adapter.
Cdlt