Remplacer une même valeur présente dans plusieurs onglets

[Thomas]

Bonjour,

J'aurais besoin d'un peu d'aide. En effet je cherche une petite (j'espère 🙂... ) macro me permettant de remplacer une même valeur présente dans une 100aine d'onglet par une autre valeur. Plus précisément:

J'ai dans chaque onglet le texte: "Accessoires livrés:"
Je veux à chaque fois remplacer ce texte par "Livré avec:"

Quelqu'un aurait cela sous la main ? 🙂

Merci d'avance.


Thomas.

 

[CBernardT]

Bonsoir Thomas

Une macro qui je crois répond à ta question.

Les textes à échanger sont dedans :

Sub Echanger()
Dim i As Byte
Dim Mot As String
Dim Change As String

Mot = "Accessoires livrés"
Change = "Livré avec :"
For i = 1 To Sheets.Count
Sheets(i).Select: Set trouvé1 = Cells.Find(What:=Mot)
If Not trouvé1 Is Nothing Then
trouvé1.Value = Change
étiq:
Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If Not trouvé2 Is Nothing Then
trouvé2.Value = Change
GoTo étiq
End If
End If
Next i
Sheets(1).Activate
End Sub

Cordialement

CBernardT

 

[Thomas]

Merci beaucoup !

Cdlt


Thomas.