cherche remplace dans la colonne B

Marsh Posté le 28-08-2015 à 11:20:21

Code :

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,

Je cherche a adapter ce code pour rechercher seulement dans une colonne B ?

Avez-vous une solution ?

Cordialement

Message édité par bgre25 le 04-09-2015 à 12:27:14

---------------
http://forum.hardware.fr/hfr/Achat [...] 5693_1.htm

Marsh Posté le 28-08-2015 à 11:20:21

Marsh Posté le 30-08-2015 à 17:15:39

Bonjour,

conformément aux règles du forum, éditer le post et baliser le code via l'icône dédiée …

Sinon au lieu d'utiliser toutes les cellules de la feuille, utiliser juste la colonne … (cf aide VBA objet Columns)

Marsh Posté le 22-09-2015 à 11:16:58

Ligne n° 12 :

feuil.columns(2).Replace What:=Mot, Replacement:=Replace

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *