Sub Macro_Recherche()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Workbook
Dim Str_critère As String
Dim X As Byte
Str_Plage = "A:A" 'cherche dans colonne A
Str_critère = InputBox("Article à rechercher ?") 'affiche boite de dialogue
If Str_critère = "" Then Exit Sub
'For Each Feuil In Sheets
For Each Cel In Sheets("BASE").Range(Str_Plage)
If UCase(Cel) Like "*" & UCase(Str_critère) & "*" Then
Sheets("BASE").Activate
Cel.Activate
X = MsgBox("Mot """ & Str_critère & """ trouvé :" & Chr(13) & _
"Est-ce ceci: " & ActiveCell.Value & Chr(13) & _
"Description: " & ActiveCell.Offset(0, 3).Value & Chr(13) & _
"Fabricant: " & ActiveCell.Offset(0, 2).Value & Chr(13) & Chr(13) & _
"Oui : on arrête la recherche" & Chr(13) & _
"Non : on continue la recherche " & Chr(13), vbDefaultButton2 + _
vbQuestion + vbYesNo, "MOT TROUVÉ")
Select Case X
Case 6
'Sheets("BASE").Activate
'Cel.Activate
Selection.Copy
Sheets("Accueil").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C5").Select
Exit Sub
Case 2 'annuler on sort
Exit Sub
Case Else 'Non=7
'on fait rien, mais on pourrait
End Select
End If
Next Cel
'Next Feuil
MsgBox ("pas trouvé")
End Sub