macro vba pour rechercher/remplacer

Bonjour,

Je suis débutant en VBA.

voilà mon problème.......je veux créer une macro qui me permettra de rechercher le mot "support" sur plusieurs feuilles d'un même classeur et le remplacer par " ". Aussi, si le mot "support" n'existe pas alors ne rien remplacer.

pour l'instant j'ai réussi à créer seulement ceci:

Code:

---

1 2 3 4 5

Sub Macro1 Cells.Replace What:="support", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

---

.....je ne sais pas comment rajouter la "recherche et le remplacer" sur les autres feuilles du même classeur, et aussi comment appliquer la condition si pas de mot "support" alors ne rien remplacer

merci d'avance

Bonjour,

Il te faut balayer la collection que représentent les feuilles du classeur activé

Code:

---

1 2 3 4 5 6

Public Sub Rempl() Dim feuil As Worksheet For Each feuil In ThisWorkbook.Worksheets feuil.Cells.Replace What:="support", Replacement:="" Next feuil End Sub

---

Un conseil (si je peux) : il est souhaitable de n'utiliser comme code que ce qui est utile (ici pour Replace)

L'enregistreur donne toutes les propriétés. C'est au codeur de trier à bon escient.

Cordialement.

Marcel

Hello,

Juste pour mettre mon petit grain de sel :D

Tu peux aussi préciser quel mot tu recherches, si tu veux, via une InputBox...

Complétes la macro de Marcel comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim feuil As Worksheet Dim Mot As Variant   Mot = InputBox("Quel mot recherchez-vous ?", Title:="Recherche un mot")   If Mot = "" Then Exit Sub   For Each feuil In ThisWorkbook.Worksheets feuil.Cells.Replace What:=Mot, Replacement:="" Next feuil

---

Mais attention, dans les deux cas, il efface le mot voulu.

Exemple :

Si dans une (ou plusieurs) cellule tu as "Support de base" ou "Colonne de support" ou autre, dès qu'il y a le mot "support", il l'effacera !

Résultat :

Ta cellule "Support de base" devient " de base" et ta cellule "Colonne de support" devient "Colonne de " !

J'ai essayé une autre méthode, idem...

A voir.

Cdt, Anto.

bonjour à tous,

Citation:

---

Mais attention, dans les deux cas, il efface le mot voulu.

---

Pour rechercher dans la totalité du contenu de la cellule ajouter :

Code:

---

LookAt:=xlPart ' Sinon LookAt:=xlWhole

---

impeccable ça marche parfaitement......:ccool:
merci à vous trois pour vos contributions
bon aprem

Bonjour
De même qu' Atoniom propose une InputBox pour la recherche, tu peux imaginer également une InputBox pour le mot à remplacer:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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

---

Bonjour,

J'utilise ce type de macro pour des problèmes de format date...

Le fait de remplacer un caractère dans une cellule met cette cellule au bon format.

Bref, mon problème est le suivant :

Via la macro, toutes le remplacement ne fonctionne pas pour toutes les cellules... Par contre, si je le fais manuellement, cela fonctionne...

Ma macro similaire ci dessus :

Code:

---

1 2 3 4 5 6

Public Sub Rempl() Dim feuil As Worksheet For Each feuil In ThisWorkbook.Worksheets feuil.Cells.Replace What:="/", Replacement:="/" Next feuil End Sub

---

Pourquoi cela fonctionne manuellement et pas par la macro ?!

Merci de votre aide ;)

Salut
bien qu'il serait préférable de refaire une discutions, étant donnée que le sujet d'origine n'a pas trop a voir en plus, je vais quand même essayé de répondre.
Si tu connais les colonnes ou ton format date est nécessaire il est préférable d'utiliser le propriété NumberFormat et de lui attribuer le format date souhaité "dd/mm/yyyy" par exemple. Un petit coup de F1 te donnera les renseignement.
A++
Qwaz

Bonjour,


Dans ton exemple tu ne précise pas si on fait la recherche sur tout le contenu de la cellule.

Code:

---

1 2 3 4 5 6

Public Sub Rempl() Dim feuil As Worksheet For Each feuil In ThisWorkbook.Worksheets feuil.Cells.Replace What:="/", Replacement:="/", LookAt:=xlPart Next feuil End Sub

---

Citation:

---

Par contre, si je le fais manuellement, cela fonctionne...

---

As-tu essayé le recorder VBA ?