Plusieurs "rechercher/remplacer" en une seule manipulation

[no vice ma kro]

Bonjour à tous,

En tapant une liste j’ai remplacé les pronoms par des chiffres (1=la, 2=le, 3=l’)
Je souhaiterais en une seule manipulation faire un « rechercher/remplacer » (control H) sur tous les chiffres afin qu’ils soient remplacés par leurs pronoms correspondants.

Merci

 

[SergiO]

Re : Plusieurs "rechercher/remplacer" en une seule manipulation

Bonjour,

Voici un code VBA à tester:

Sub Remplacer()
Application.ScreenUpdating = False
For Each Cel In Sheets("Feuil1").UsedRange
Cel.Value = Replace(Cel, "1", " (LA)", 1, 1)
Cel.Value = Replace(Cel, "2", " (LE)", 1, 1)
Cel.Value = Replace(Cel, "3", " (L)", 1, 1)
Cel.Value = Replace(Cel, "4", " (LES)", 1, 1)
Next Cel
Application.ScreenUpdating = False
End Sub

@+

 

[stemsy]

Re : Plusieurs "rechercher/remplacer" en une seule manipulation

Bonjour ,

cela peut peut être convenir , même si cela me parait un peu trop compliqué .

Bon courage
Stéphane

 

[no vice ma kro]

Re : Plusieurs "rechercher/remplacer" en une seule manipulation

Les deux formules me conviennent très bien.

Merci à vous.