Sepr145
Nouveau membre
Bonjour,
je cherche a créer une macro de recherche qui remplacerai la fonction ctrl+F. Après quelques recherches, j'ai pu écrire cette dernière:
Malgré tout, un probleme subsiste, la macro ne tient absolument pas compte du texte entré dans l'inputbox. Pour moi le probléme viendra de l'utilisation du InStr.
Merci d'avance pour votre aide
je cherche a créer une macro de recherche qui remplacerai la fonction ctrl+F. Après quelques recherches, j'ai pu écrire cette dernière:
Code:
Sub recherche()
Application.ScreenUpdating = False
Dim recherche As String
Dim cellules As Range
Dim plage As Range
Set plage = Range("J4:R6")
recherche = InputBox("Quel type de risque cherchez-vous?" & Chr(10) & Chr(10) & "(recherche par mot-clé ou élément-clé )", "Aide à la recherche")
If recherche = "" Then
MsgBox ("recherche annulée")
Exit Sub
Else
For Each cellules In plage
cellules.EntireRow.Hidden = True
If InStr(cellules.Text, recherche) Then
cellules.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End If
End Sub
Malgré tout, un probleme subsiste, la macro ne tient absolument pas compte du texte entré dans l'inputbox. Pour moi le probléme viendra de l'utilisation du InStr.
Merci d'avance pour votre aide