rechercher un mot dans toutes les feuilles du classeur et le remplacer par un autre

[Taylante]

Bonjour,

J'ai rechercher sur le net une macro qui me permette de rechercher un nom et pouvoir le remplacer par un autre. Mais je ne trouve pas exactement ce que je veux. La formule qui se rapproche est celle indiquer ci-dessous.

Sub efface_mot()
'rechercher un mot dans toutes les feuilles du classeur et le remplacer par un autre
Dim feuil As Worksheet
Dim Mot As Variant
Dim Replace As Variant
Mot = InputBox("Quel mot recherchez-vous ?", Title:="Recherche un mot")
Replace = InputBox("Par quel mot voulez vous remplacer ?", Title:="Remplacer le mot trouver")
If Mot = "" Then Exit Sub
For Each feuil In ThisWorkbook.Worksheets
feuil.Cells.Replace What:=Mot, Replacement:=Replace
Next
End Sub

Seulement je veux pourvoir changer le mot par rapport au nom de la personne.
Si deux Personnes habitent sur Paris et qu'une seule personne est concerné pour un changement de localisation, je ne voudrais pas que le mot Paris change sur toutes les feuilles.

Exemple : Mr DURAND et DUPOND habitent à Paris mais seulement DURAND déménage sur Rennes. Le changement doit se faire sur toutes les feuilles.

Merci pour votre aide

 

[cp4]

Bonjour Taylante,

Ton code trouvé sur developpez.com, fonctionne parfaitement.

 

[Taylante]

Bonjour CP4
Oui, je sais mais je ne veux pas que toutes les personnes qui habitent paris changent de localisation sur rennes, mais seulement DURAND.

 

[eriiic]

Bonjour,

Pourquoi ? Ce n'est pas bien Rennes ?
Une proposition en supposant qu'un seul changement par feuille est possible :
Dans le module Feuil1 :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim sh As Worksheet, nb As Long
Dim adr1 As String, c As Range
If Target.Count <> 3 Or Target.Rows.Count <> 1 Then Exit Sub
If MsgBox("Déménagement de " & Target(1) & " " & Target(2) & " vers " & Target(3), vbOKCancel) = vbCancel Then Exit Sub
Cancel = True
For Each sh In Worksheets
Set c = sh.Cells.Find(Target(1), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
adr1 = c.Address
Do
If c.Offset(, 1) = Target(2) Then
c.Offset(, 2) = Target(3)
nb = nb + 1
Exit Do
Else
Set c = Cells.FindNext(c)
End If
Loop While c.Address <> adr1 'And Not c Is Nothing
End If
Next sh
MsgBox nb & " remplacements effectués"
End Sub
(la mise en forme ne fonctionne pas, désolé)
Changer la ville en Feuil1!C2, sélectionner A2:C2 et faire un clic-droit

Bon, impossible de joindre le fichier également. J'ai l'impression que le site n'aime plus Chrome ou les bloqueurs de pub !?!
eric

 

[cp4]

Finalement, je n'ai pas bien compris ton problème. Les données de tes 3 feuilles sont identiques.
Ensuite, tu veux faire une recherche sur toutes les feuilles et ne vouloir effectuer les modifications que sur une seule feuille. Alors pourquoi faire une boucle sur toutes feuilles?

Si ça concerne une seule feuille comme ceci

Sub efface_mot()
    Dim feuil As Worksheet, Mot As Variant, Replace As Variant
    Mot = InputBox("Quel mot recherchez-vous ?", Title:="Recherche un mot")
    Replace = InputBox("Par quel mot voulez vous remplacer ?", Title:="Remplacer le mot trouver")
    If Mot = "" Then Exit Sub
ActiveSheet.Cells.Replace What:=Mot, Replacement:=Replace
End Sub

 

[eriiic]

De rien Taylante...

 

[Taylante]

Bonjour Eric
Désoler de ne pas avoir répondu car actuellement je suis en mission sur Bourges. Je n'ai pu essayer ta formule car mon dossier est à la maison. Des mon retour je te confirme si ça fonctionne. Encore merci d'avoir répondu à ma question. A bientôt
Taylante

 

[Taylante]

Bonjour,

Eric, je viens de tester ta formule et elle marche parfaitement. cependant la mis en place de cette formule n'est pas simple pour mon dossier.
J'ai donc changer de projet et je me suis orienté vers un Userform. Après quelques visionnage sur son fonctionnement, j'ai réussit à faire ce que je voulais.

Merci à tous pour avoir répondu à ma demande de formule.