rebonjour Cutbill
j'espere que cette adaptation repondra à ta demande
Sub CommandButton2_Click()
'adaptation procedure de Didou
'http://www.excel-downloads.com/html/French/forum/messages/1_59385_59385.htm
Dim strSearchString As String
Dim ws As Worksheet
Dim foundCell As Range
Dim loopAddr As String, returnValue As String
strSearchString = InputBox(Prompt:="Saisir la valeur à chercher.", Title:="Recherche")
If strSearchString = "" Then Exit Sub
For Each ws In Worksheets
With ws
.Activate
Set foundCell = .Cells.Find(What:=strSearchString, LookIn:=xlValues, LookAt:=xlPart)
If Not foundCell Is Nothing Then
loopAddr = foundCell.Address
Do
foundCell.Activate
returnValue = MsgBox("valeur trouvée dans " & ws.Name & " " & foundCell.Address & vbLf & _
"Voulez vous continuer la recherche ? ", vbYesNo, "Message")
If returnValue = vbNo Then Exit For
Set foundCell = .Cells.FindNext(After:=foundCell)
Loop While Not foundCell Is Nothing And foundCell.Address <> loopAddr
End If
End With
Next ws
End Sub
bon week end
MichelXld