Rechercher/Remplacer un mot dans une zone de texte

Bonjour,

Dans "zonetexte 1" se trouve un courrier dans lequel j'ai le terme Montant_TA.

A la manière d'un mailing, je souhaiterai remplacer le terme Montant_TA par une somme en euros.

j'ai ce début de code:

Sub ImprimeCourrier()

' Ecriture de l'adresse

With Sheets("Merci")

.Range("E8") = Entreprise

.Range("E9") = Rue

.Range("E10") = CP & " " & Ville

End With

' remplace le champ Montant_TA par la valeur

Sheets("Merci").Shapes("Zonetexte 1").Select

End sub

Merci pour l'aide

ddetp88

Bonjour. Bienvenue sur le Forum

La valeur

Laquelle?

Remplace le texte de la zone de texte par un nouveau texte

Sheets("Merci").Shapes("Zonetexte 1").Select
ActiveWorkbook.ActiveSheet.Shapes("Zonetexte 1").TextFrame.Characters.Text = "2000 €"

Cordialement

La somme provient d'un tableau d'une autre feuille. J'utilise la variable "valeur".

Ce que je veux faire, c'est trouver le terme Montant_TA et le remplacer par la variable valeur dans la phrase suivante:

Vous avez témoigné votre intérêt pour notre établissement en effectuant un versement de Montant_TA au titre ... etc

sachant que cette phrase est intégrée dans une zone de texte.

cordialement

Bonjour

Sheets("Merci").Shapes("Zonetexte 1").Select
        With Selection
            Contenu = Replace(.Characters.Text, "Montant_TA", Valeur)
            .Characters.Text = Contenu
        End With

Bien sur, tu déclares Contenu

Cordialement

Bonjour Amadeus,

ça le fait!

Juste qu'il faut remettre en place le terme Montant_TA après impression du courrier.

Ce qui donne au final:

With Sheets("Merci")

' Ecriture de l'adresse

.Range("G8") = Entreprise

.Range("G9") = Rue

.Range("G10") = CP & " " & Ville

'------------------------------------------------------------------

'recherche dans la zonetexte 1 le mot Montant_TA

'et inscrit le montant

Sheets("Merci").Shapes("Zonetexte 1").Select

With Selection

Courrier = Replace(.Characters.Text, "Montant_TA", Valeur)

.Characters.Text = Courrier

End With

'Impression du courrier

.PageSetup.PrintArea = .Range("$A$1:$J47").Address

.PrintOut

' situation inverse, remet en place le terme Montant_TA

Sheets("Merci").Shapes("Zonetexte 1").Select

With Selection

Courrier = Replace(.Characters.Text, Valeur, "Montant_TA")

.Characters.Text = Courrier

End With

End With

Merci pour le coup de main.

ddetp

Rechercher des sujets similaires à "rechercher remplacer mot zone texte"