Macro Chercher remplacer

[digitman]

Bonjour tout le monde,
je souhaite creer une macro excel pour les besoin d'un client, qui parcoure une colonne quelquonque et remplace dans les chaines de caractètres qui s'y trouvent le mot 'ST' par 'SAINT' et le mot 'STE' par 'SAINTE', j'ai pas pu automatiser ce rechercher remplacer à cause du cas suivant :
le mot ST ou STE se trouvant dans un mot de la chaine de caractère exemple : ST CHRISTOPHE

Merci d'avance

 

[digitman]

Re : Macro Chercher remplacer

j'ai une erreur de debogage a la ligne suivante

 If Mid(cellule, InStr(1, cellule, "ST") - 1, 1) = " " Then

Erreur d'execustion '5'

 

[pierrejean]

Re : Macro Chercher remplacer

bonjour Digitman
Salut Porcinet

a tester:

Sub test()
Dim x As String
For n = 1 To Range("A65536").End(xlUp).Row
 x = " " & Range("A" & n)
 Range("B" & n) = Replace(x, " ST ", " Saint ")
Next n
For n = 1 To Range("B65536").End(xlUp).Row
 Range("B" & n) = Replace(Range("B" & n), " STE ", " Sainte ")
 Range("B" & n) = Trim(Range("B" & n))
Next n
End Sub

 

[digitman]

Re : Macro Chercher remplacer

bonjour Digitman
Salut Porcinet

a tester:

Sub test()
Dim x As String
For n = 1 To Range("A65536").End(xlUp).Row
 x = " " & Range("A" & n)
 Range("B" & n) = Replace(x, " ST ", " Saint ")
Next n
For n = 1 To Range("B65536").End(xlUp).Row
 Range("B" & n) = Replace(Range("B" & n), " STE ", " Sainte ")
 Range("B" & n) = Trim(Range("B" & n))
Next n
End Sub

Salut pierrejean
la solution que vous avez donné fonctionne a merveille juste svp vous pouvez faire le changement sur la meme colonne ?

 

[pierrejean]

Re : Macro Chercher remplacer

bonjour

voila

(non testée)

Sub test()
Dim x As String
For n = 1 To Range("A65536").End(xlUp).Row
 x = " " & Range("A" & n)
 Range("A" & n) = Replace(x, " ST ", " Saint ")
Next n
For n = 1 To Range("A65536").End(xlUp).Row
 Range("A" & n) = Replace(Range("A" & n), " STE ", " Sainte ")
 Range("A" & n) = Trim(Range("A" & n))
Next n
End Sub

 

[digitman]

Re : Macro Chercher remplacer

Merci bien pierrejean pour votre aide