Modification macro pour rechercher dans Fichier

Bonjour,

j'ai une Macro faite par JMB

A l'origine, je recherchais dans un onglet mais maintenant il faudrait que j'effectue cette recherche dans un fichier qui est dans le même répertoire

Je vous joint le Macro :

Option Explicit

Dim f, fl

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    Set f = ActiveSheet
    Set fl = Sheets("listing")
    If f.Range("A4") = "Produit" And Target.Address = "$B$4" Then
        UserForm1.Show
    End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Set f = ActiveSheet
    Set fl = Sheets("listing")
    If f.Range("A4") = "Produit" And Target.Address = "$B$2" _
            And IsNumeric(Target) And Target > 0 And Target <= 12 _
            And f.Range("B4") <> "" Then
        Call Recherche

    End If

End Sub

PS : Je n'y connais rien en macro

D'avance merci

KissCool

Bonjour

Peux-tu joindre le fichier dans lequel était cette macro ?

Bye !

Bonjour,

c'est bon, j'ai peux modifier la macro

Mais merci d'avoir regarder

belle semaine a toi

KissCool

Rechercher des sujets similaires à "modification macro rechercher fichier"