XL 2019 afficher uniquement les lignes où se trouve un mot recherché soit sur une colonne soit sur l'ensemble des colonnes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

OCRMP

XLDnaute Nouveau
Bonjour,
j'ai trouvé ce petit fichier sur internet , qui filtre un tableau selon un mot .
je débute en VBA et je ne trouve pas la solution :
il y a un bug quand le mot n'est pas dans le tableau
"erreur 9 l'indice n'appartient pas à la sélection" , je ne trouve pas la solution 😔
ca bloque sur la ligne en rouge

Function Trouve(iVal As Integer, iTab() As Integer)
Dim i As Integer
For i = LBound(iTab) To UBound(iTab)
If iTab(i) = iVal Then
Trouve = True
Exit Function
End If
Next i
Trouve = False
End Function

merci pour votre aide
elfemp
 

Pièces jointes

Bonjour @OCRMP et bienvenue sur XLD 🙂,

Le code ci-dessous devrait suffire :
VB:
Private Sub bFiltrer_Click()
Dim plageVal As Range, ligne, Quoi
   Application.ScreenUpdating = False
   With Sheets("Feuil1")
      Set plageVal = Intersect(.Range("a1").CurrentRegion, Range("a1:k1").EntireColumn, .Rows(2).Resize(.Rows.Count - 1))
      plageVal.EntireRow.Hidden = False
      If tCherche = "" Then Exit Sub
      Quoi = "*" & tCherche & "*"
      For Each ligne In plageVal.Rows
         ligne.Hidden = (Application.WorksheetFunction.CountIf(ligne, Quoi) = 0)
      Next ligne
   End With
End Sub

Private Sub bShowAll_Click()
   Sheets("Feuil1").Rows.Hidden = False
End Sub

nota : pour tout afficher : cliquer sur le bouton "Tout afficher", ou laisser la zone de recherche vide, ou tapez un astérisque dans la zone de recherche.

remarque : je ne commente pas mes codes sauf si on me le demande 😉 .
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour