Recherche et remplacement texte

[Pierre31]

Bonjour à toutes et tous,

Dans la colonne "B" j'ai des lignes dans lesquelles l'on trouve ce type d'informations:
" Magasin CC12 Investissement Imputation sur IA"

Je souhaite pouvoir trouver les lignes ou j'ai par exemple:
" CC12 Investisement" et le remplacer par CC13 Frais généraux"

Actuellement j'ai la procédure suivante:

Sub test_Recherche_Mots()
Dim i As Long
Dim x As String
Dim L As Integer

For i = 1 To [B65536].End(xlUp).Row
L = Len(Cells(i, 2))
If Cells(i, 2) Like "*CC12 Investissement*" Then
x = Mid(Cells(i, 2).Text, InStr(1, Cells(i, 2).Text, ":") + 1, L)


MsgBox "Mots trouvés : " & "en: " & Cells(i, 2).Address(0, 0) _
& " (ligne " & Cells(i, 2).Row & ")"

End If
Next
End Sub

Mais je n'arrive pas à remplacer par "CC13 Frais Généraux".

D'avance merci pour vos réponses.
Cordialement
Pierre

 

[jojo3008]

Re : Recherche et remplacement texte

si tu as plusieurs mots differents a rechercher/remplacer, moi j aurais rajouté une variable boolean :
dim supprimer as boolean
et tu l incorpore dans ta fonction, ainsi t auras juste a faire
if supprimer Then tonmot = "CC19 frais generaux"

edit : masterdisco encore plus rapide que moi

voila a+

 

[JNP]

Re : Recherche et remplacement texte

Bonjour le fil ,
Et pourquoi pas tout simplement

Range("B:B").Replace What:="CC12 Investisement", Replacement:="CC13 Frais généraux", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

Bonne journée

 

[Pierre31]

Félicitations et un grand merci pour vos réponses.
j'ai utilisé la solution de masterdisco.
Bonne journnée à vous tous.
Cordialement
Pierre