XL 2013 Modifier "Texte à afficher" d'un lien Hypertexte issue d'un userform

[dilack]

Bonjour à tous,

Ne trouvant pas mon petit bonheur en ayant cherché et regardé à droite et à gauche...

Je vous explique ce que je recherche

Dans un userforme je rentre un chemin de lien hypertexte et je recherche qu'à la place du chemin en intégralité dans la cellule c'est d'avoir comme texte "visualiser"

exemple:

D:\Users\TOTO\Documents_Techniqaues\ASSAINISSEMENT\Essai n°1.pdf ===> Visualiser

Voila le code de mon bouton validation code

Private Sub cbnValidation_Click()
Dim i As Long
i = Sheets("LISTING").[a65000].End(xlUp).Row + 1
With Sheets("LISTING").Cells(i, 1)
    .Offset(, 1).Value = cbxDomaine.Text
    ' Merci à Thebenoit59'
    '------------------------------
    .Value = Left(.Offset(, 1).Value, 3) & Format(Application.CountIf(Sheets("LISTING").Range("b:b"), .Offset(, 1).Value), "000")
    '------------------------------
    .Offset(0, 2).Value = tbxTitreDocument.Text
    .Offset(0, 3).Value = cbxTypeDocument.Text
    .Offset(0, 4).Value = cbxEditeur.Text
    .Offset(0, 5).Value = tbxParution.Text
    ' Changement du texte  du Hypertexte en "Visualiser"
    .Offset(0, 6).Value = tbxDownLocal.Text
    ' Changement du texte  du Hypertexte en "Télécharger"
    .Offset(0, 7).Value = tbxDownCloud.Text
   ' .Value = Left(.Offset(, 1).Value, 3) & Format(Application.CountIf(Sheets("LISTING").Range("b:b"), .Offset(, 1).Value), "000")
    .Offset(0, 8).Value = tbxObservations.Text
End With
End Sub

Je vous mets la feuille de calcul, ça sera assurément plus explicite.

Merci d'avance pour vos réponse

 

[jecherche]

Re : Modifier "Texte à afficher" d'un lien Hypertexte issue d'un userform

Bonjour,

À tester :

        ' Changement du texte  du Hypertexte en "Visualiser"
    .Hyperlinks.Add Anchor:=.Offset(0, 6), Address:=tbxDownLocal.Text, TextToDisplay:="Visualiser"
    
        ' Changement du texte  du Hypertexte en "Télécharger"
    .Hyperlinks.Add Anchor:=.Offset(0, 7), Address:=tbxDownCloud.Text, TextToDisplay:="Télécharger"

Bonjour,


Jecherche

 

[dilack]

Re : Modifier "Texte à afficher" d'un lien Hypertexte issue d'un userform

Merci Jecherche ça fonctionne impeccable ...
je me suis trompé de sens lors de mes essais, quelle buse ...