Skip to main content
cancel
Showing results for 
Search instead for 
Did you mean: 
Not applicable

Concaténation de Champs calculés dans un nouveau Champ

Bonjour,

Je dispose d'une Feuille (Tableau de bord) avec de nombreux objets texte contenant des résultats calculés.
J'aimerai pouvoir récupérer ces résultats pour les présenter concaténés dans un autre Objet Texte.

Quelle fonction faut-il utiliser pour récupérer une valeur d'un Objet Texte dans un autre Objet Texte ?

Comment valoriser dans une variable avec le résultat d'un Objet Texte ?

Merci pour votre disponibilité,

5 Replies
alexandros17
Partner - Champion III
Partner - Champion III

It is not possible, you have to repeat the expression inside the second text object ...

Not applicable
Author

Est-il possible de passer par un Macro JScript ou VBScript ?

Not applicable
Author

Est-il possible de récupérer la concaténation des valeurs des Objets Texte dans le Presse Papier ?

alineclozel
Creator
Creator

Je suis absent(e) du bureau jusqu'au 28/09/2015

Je répondrai à votre message dès mon retour.

Mail PLH : plh@agglo-grandavignon.fr

pour toute autre demande : contact@agglo-grandavignon.fr

Remarque : ceci est une réponse automatique à votre message "Reply marked

as helpful on Concaténation de Champs calculés dans un nouveau

Champ" envoyé le 21/09/2015 09:59:40.

C'est la seule notification que vous recevrez pendant l'absence de cette

personne.

Not applicable
Author

Ci-joint ma solution en VBScript :

FUNCTION CopyToClipboard

  strCopy = chr(9)& chr(9) & ActiveDocument.GetSheetObject("TX847").GetText & chr(9)& ActiveDocument.GetSheetObject("TX846").GetText & chr(13)
strCopy = strCopy & chr(9)
strCopy = strCopy & ActiveDocument.GetSheetObject("TX856").GetText & chr(9) & ActiveDocument.GetSheetObject("TX851").GetText & chr(9) & ActiveDocument.GetSheetObject("TX855").GetText & chr(13)

etc...

set mytext = ActiveDocument.ActiveSheet.CreateTextObject
prop = mytext.GetProperties
prop.Layout.Text.v = strCopy
mytext.SetProperties prop

mytext.CopyTextToClipboard

mytext.Close

END FUNCTION