Outil trouver / Remplacer vba excel

[matrix]

Bonjour,

J'ai trouvé ce script et je voudrais le modifier afin qu'il trouve et remplace que dans la feuil3.

Comment faire s.v.p?

Merci pour votre aide.

Private Sub CommandButton6_Click()
Dim WS              As Worksheet
Dim Search          As String
Dim Replacement     As String
Dim MatchCase       As Boolean
    

    Search = TextBox1
        

    Replacement = TextBox2
       
    For Each WS In Worksheets
        WS.Cells.Replace What:=Search, Replacement:=Replacement, _
            LookAt:=xlPart, MatchCase:=False
    Next
  
End Sub

 

[pierrejean]

Re : Outil trouver / Remplacer vba excel

bonjour matrix

....
[COLOR=blue]'For Each WS In Worksheets[/COLOR]
        Sheets("Feuil3").Cells.Replace What:=Search,    Replacement:=Replacement, _
            LookAt:=xlPart, MatchCase:=False
[COLOR=blue] 'Next[/COLOR]
....

 

[matrix]

Re : Outil trouver / Remplacer vba excel

Super, merci beaucoup.