Bonjour,
A mon avis le plus simple est qu'à chaque textbox corresponde une formule particulière du genre:
1 2 3 4 5 6 7 8
| Public Function Opinion1(sTypePrd As String, DateCr As Date, vPrix As Single) as String
Dim s As String
s = "Ce produit est un produit de type [type_produit], il a été crée le [date_de_création] et est vendu au prix de [prix_de_vente] ..."
s = Replace(s, "[type_produit]", sTypePrd)
s = Replace(s, "[date_de_création]", Format(DateCr, "dd/mm/yyyy"))
s = Replace(s, "[prix_de_vente]", Format(vPrix, "0,00"))
Opinion1 = s
End Function |
Il serait aussi possible de mettre les modèles de texte "Ce produit est ..." dans une table et d'aller les repêcher à l'aide de la fonction DLookup, quelque chose du genre:
s = DLookup("TxtModele", "TableTxtModeles", "id=1")
Cordialement.
Partager