Bonjour à tous,
 
Je reviens vers vous encore une fois car j'ai un petit soucis avec la fonction Hyperlink. En effet, j'alimente une listbox de cinq colonnes avec le code ci-dessous les quatre premières contiennent du texte, la cinquième quant à elle contient des liens hypertextes.  
Mon problème c'est que je ne sais pas comment faire pour la définir comme liens hypertextes ce qui m'évitera de passer à chaque fois par la feuille Excel.
 
Merci d'avance pour votre aide.
Vincent  
 
 
----------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
 
 
UserForm1.ListBox1.Clear
UserForm1.ListBox1.ColumnCount = 5
 
    For i = 1 To Range("A65536" ).End(xlUp).Row
        If Not Rows(i).Hidden Then UserForm1.ListBox1.AddItem
         
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 0) = Feuil1.Cells(i, 1)
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Feuil1.Cells(i, 2)
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 2) = Feuil1.Cells(i, 3)
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 3) = Feuil1.Cells(i, 4)
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 4) = Feuil1.Cells(i, 5)
 
    Next i
     
UserForm1.ListBox1.BoundColumn = 100
UserForm1.ListBox1.ColumnWidths = "100;100;100;100;100;150;150;150;50;50"
UserForm1.Show
End Sub

et pourquoi  tu sors pas le lien choisi dans la ligne donc la cinquieme colonne  dans une etiquette hyperlien a coté de ta liste. Comme ca c'est ok

Bonjour alaingui,
 
Merci d'abord pour ta réponse et désolé pour le retard, est ce que tu peux m’expliquer un peu plus s'il te plait "je tiens à te signaler que je suis débutant en programmation   ". En fait, pour les liens qui correspondent à mes dossiers je les ai tous dans la colonne 6, ils sont générés automatiquement mais ils ne sont pas affichés dans ma listbox.
 
Merci