Plusieurs "rechercher/remplacer" en une seule manipulation

no vice ma kro · 2 Octobre 2007

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 · 2 Octobre 2007

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

Bonjour,

Voici un code VBA à tester:

Code:

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 · 2 Octobre 2007

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 · 2 Octobre 2007

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

Les deux formules me conviennent très bien.

Merci à vous.

Plusieurs "rechercher/remplacer" en une seule manipulation

no vice ma kro

Guest

Pièces jointes

SergiO

XLDnaute Accro

stemsy

XLDnaute Nouveau

Pièces jointes

no vice ma kro

Guest

Discussions similaires

Plusieurs "rechercher/remplacer" en une seule manipulation

no vice ma kro

Guest

Pièces jointes

SergiO

XLDnaute Accro

stemsy

XLDnaute Nouveau

Pièces jointes

no vice ma kro

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency