cherche remplace dans la colonne B

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : cherche remplace dans la colonne B

bgre25

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

Publicité

Marc L

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)

Marc L

Ligne n° 12 :

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

cherche remplace dans la colonne B

Sujets relatifs
Cherche extranet graphiques données client	aligner verticalement colonne en C
[SQL Server/Cobol] Maj colonne NULL ou valeur non NULL	Cherche formation d'une journée approche dev android et android studio
Est-ce juste ? Je cherche la table d'addition en base -2.	[Divers]Cherche compileur C++ sur MS Windows 7 32bits : => portmidi
Photographe cherche à comprendre l'UX design	Création d'un application, cherche des employées
Cherche programmeur R chaine de Markov (simple et bien payé!)	"Scinder" une colonne en deux MySql
Plus de sujets relatifs à : cherche remplace dans la colonne B

Page générée en 0.033 secondes