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
Je vous mets la feuille de calcul, ça sera assurément plus explicite.
Merci d'avance pour vos réponse
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