Discussion :

[amadou78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Antoniom]

Hello,

Juste pour mettre mon petit grain de sel

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

Complétes la macro de Marcel comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[aalex_38]

bonjour à tous,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LookAt:=xlPart ' Sinon LookAt:=xlWhole

[amadou78]

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

[Domimart]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DVano]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Qwazerty]

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

[aalex_38]

Bonjour,


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

As-tu essayé le recorder VBA ?