Convertir une formule en texte

[affitest]

Bonjour,

Le problème est peut-être simple mais j'avoue ne pas trouver la réponse.

Je reconstitue à l'aide d'une formule simple une URL de destination.

Exemple :

Voici ma formule située en C2 :
=B3&B4&A37&A38&B8&"&"&A39&B6&"&"&A40&B10

et l'URL de destination visible sur xls est alors la suivante :
Ce lien n'existe plus

Je souhaiterai que les utilisateurs puissent copier coller l'URL. Or quand je clique sur la cellule C2, je vois alors la formule s'afficher dans la barre et non pas l'URL. De ce fait l'utilisateur VOIT l'URL mais ne peut en aucun cas la récupérer. Comment faire en sorte que l'utilisateur puisse récupérer (et non pas seulement voir) l'URL en question ?

Un grand merci d'avance pour votre aide.

 

[tototiti2008]

Re : Convertir une formule en texte

Bonjour affitest,

Récupérer où ? dans le presse papier ?
Ne serait il pas plus simple de faire un lien hypertexte ?

 

[Tibo]

Re : Convertir une formule en texte

Bonjour,

Essaye avec la fonction LIEN_HYPERTEXTE :

=LIEN_HYPERTEXTE("mailto:"&B3&B4&A37&A38&B8&"&"&A39&B6&"&"&A40&B10
;B3&B4&A37&A38&B8&"&"&A39&B6&"&"&A40&B10)

Je te laisse tester

S'il ne s'agit pas d'une adresse mail, supprime le "mailto:"

@+

Edit : Salut tototiti 🙂

@+

 

[tototiti2008]

Re : Convertir une formule en texte

Re,
Salut Tibo 😉

ou pour le mettre dans le presse-papier :

Sub test()
Dim Texte As New MsForms.DataObject
    Texte.SetText Range("C2").Text
    Texte.PutInClipboard
End Sub

 

[affitest]

Re : Convertir une formule en texte

Merci pour votre réponse rapide mais cela ne solutionne pas mon problème.
Ci joint une capture d'écran. Je souhaiterai récupérer dans une cellule xls l'URL formatée et non pas la fomule xls.

Peut-être que la PJ peut vous aider ?

Merci d'avance

 

[Tibo]

Re : Convertir une formule en texte

re,

Sur un Forum Excel, un fichier Excel est préférable à une image.

Sinon, tu peux peut-être faire un Copier - Collage spécial - Valeur

Je te laisse tester

@+

 

[tototiti2008]

Re : Convertir une formule en texte

Re,

en automatique ou manuellement ?

manuellement :
Copie C2
Sélectionne C3
Collage spécial - valeurs

par macro :

Range("C2").Copy
Range("C3").Pastespecial Paste:=xlPasteValues

 

[affitest]

Re : Convertir une formule en texte

C'était effectivement en automatique et non pas en manuel.
Merci de votre aide efficace !