Procédure de recherche

Bonsoir ,svp vous pouvez m'aider à trouver le problème dans ce code ,je veux faire la recherche.

Merci beaucoup

Bonjour,

heuuuu, tu ne connais pas le copier-coller ?
Tu veux qu'on s'amuse à recopier ton code ? Tu vas attendre un moment...

Une description du problème et le message d'erreur font partie aussi du minimum.
Et un fichier (anonymisé) te permettra d'avoir une réponse correcte sans de multiples échanges.
eric

Bonjour , voici le code et je vous remercie enormement.

sub procedure()

Dim la As String

la = InputBox("Entrez le titre :", "Titre")

Windows("Classeur2.xlsm").Activate

Cells.Find(What:=la, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

, SearchFormat:=False).Activate

End If

End Sub

Bonjour Bouy

Toujours ni code erreur, ni message d'erreur, ni fichier anonymisé.

Un conseil : éviter l'utilisation de Activate, et Select

Une exemple de find avec une variable C qui réceptionne le retour de la recherche (trouvé ou pas trouvé)

Au lieu de Cells.Find je verrai plutot !

LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Set C= Range("A1:A" & LastRow).Find ......