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