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

dilack

XLDnaute Junior
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


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
 

Fichiers joints

jecherche

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

Bonjour,

À tester :

Code:
        ' 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

XLDnaute Junior
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 ...
 

Discussions similaires


Haut Bas