XL 2019 Lien Hypertexte dans un textbox

farid · 15 Mai 2021

Bonjour,
Je viens vers vous afin de savoir s'il y a possibilité de modifié le fichier en copie que j'ai récupéré et j'en remercie les personnes concernées , sur ce site a savoir. le contenue du fichier fonctionne bien sauf je voulais savoir s'il y avait la possibilité de mettre les liens uniquement vers les onglets et non vers un site comme dans l'exemple du fichier.
Par avance merci

ChTi160 · 16 Mai 2021

Bonjour farid
je pense que tu n'as pas besoin d'utiliser (exemple)

feuille = Split(TextBox1.Text, "'")(0)

un simple

feuille = TextBox1.Text

suffit je pense!

Bonne journée
Jean marie

farid · 16 Mai 2021

Bonjour a vous tous,
c'est bon , j'ai trouvé ,Je mets le fichier pour ceux intéressées .

ChTi160 · 16 Mai 2021

Bonjour farid
je pense que tu n'as pas besoin d'utiliser (exemple)

feuille = Split(TextBox1.Text, "'")(0)

un simple

feuille = TextBox1.Text

suffit je pense!

Bonne journée
Jean marie

farid · 16 Mai 2021

ChTi160 à dit:
Bonjour farid
je pense que tu n'as pas besoin d'utiliser (exemple)

un simple

suffit je pense!

Bonne journée
Jean marie

Salut Chti effectivement cela fonctionne et mis en application. Merci

farid · 16 Mai 2021

ChTi160 à dit:
Bonjour farid
je pense que tu n'as pas besoin d'utiliser (exemple)

un simple

suffit je pense!

Bonne journée
Jean marie

Bonjour Jean-Marie, je reviens vers toi concernant le sujet de ce poste, lorsque le textbox est vide , je me retrouve avec un bug. Il me semble qu'il faut mettre un If /Else / exit sub / End If , mais je ne sais pas le mètre en place. Et si possible est ce possible de faire apparraitre un MSG pour informer en cas de textbox vide.
Par avance merci

job75 · 16 Mai 2021

Bonsoir farid, ChTi160,

farid à dit:
Bonjour Jean-Marie, je reviens vers toi concernant le sujet de ce poste, lorsque le textbox est vide , je me retrouve avec un bug.

Vide ou contenant un texte autre que le nom d'une feuille...

Le plus simple est de mettre On Error Resume Next en début de macro et de tester avec If Err Then

Bien voir aussi que votre méthode active la feuille mais ne sélectionne pas la cellule indiquée dans le lien.

A+

job75 · 16 Mai 2021

Pour alléger le code on utilisera la macro paramétrée MaMacro :

VB:

Sub MaMacro(x As String)
Dim c As Range
Set c = Feuil1.[A:A].Find(x, , xlValues, xlWhole)
On Error Resume Next
Application.Goto Evaluate(c.Hyperlinks(1).SubAddress)
If Err Then MsgBox IIf(x = "", "TextBox vide !", "Aucun lien ne conduit à la feuille '" & x & "'...")
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MaMacro TextBox1
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MaMacro TextBox2
End Sub

Bonne nuit.

XL 2019 Lien Hypertexte dans un textbox

farid

XLDnaute Occasionnel

Pièces jointes

ChTi160

farid

XLDnaute Occasionnel

Pièces jointes

ChTi160

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

farid

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires