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
 

Pièces jointes

  • Docs_Techniques.Hypertexste.xlsm
    34.1 KB · Affichages: 31

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
 

Discussions similaires

Réponses
4
Affichages
165
Réponses
2
Affichages
702
Réponses
19
Affichages
2 K

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof