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

  • Initiateur de la discussion Initiateur de la discussion dilack
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dilack

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour