V
Veloutine
Guest
Bonjour, J'ai un fichier excel avec une macro qui sélectionne des colonnes, mais je voudrais ajouter la fonction recherche (ctrl+f) qui s'ouvrirais automatiquement . Est-ce possible?
Merci
Merci
Private Sub Workbook_Open()
Call Recherche
End Sub
Public Sub Recherche()
Dim strFind As String
strFind = InputBox('Q 'est-ce qu 'on cherche aujourd 'hui ?', 'Recherche')
Cells.Find(What:=strFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub