bonjour,

Je me permet de vous demander un petit peu d'aide sur un soucis pour lequel je galère depuis un certain temps.
J'alimente une listbox avec ce code (code cela me permet d'avoir un grand nombre de colonnes dans ma listbox) :

Code Visual Basic :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim aCC(0 To 2000, 0 To 50)
    For m = 1 To Sheets("Feuil2").Range("A65536").End(xlUp).Row
        If Not Sheets("Feuil2").Rows(m + 1).Hidden Then
                For t = 0 To Colonne + 1
                    aCC(m, t) = Sheets("Feuil2").Cells(m + 1, t + 1)
                Next t
        End If
    Next m
 
UserForm1.ListBox1.Clear
UserForm1.ListBox1.ColumnCount = 51
UserForm1.ListBox1.ColumnWidths = "20;20;20;20;25;150;150;150;50;50;50;50;50"
UserForm1.ListBox1.List() = aCC
UserForm1.Show
Or il s'avère que l'une de mes colonnes sont des liens hypertextes et ils n'apparaissent pas dans la listbox1 (texte brut uniquement). J'ai bien tenté d'écrire ceci :

Code Visual Basic :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub ListBox1_Click()
Dim v As Integer
 
Worksheets("Feuil2").Select
For v = 2 To 14
    If Cells(v, 13).Value = UserForm1.ListBox1.Text Then
    Worksheets("Feuil2").Cells(v, 13).Hyperlinks.Item.Follow
    End If
NextEnd Sub

Mais en vain...

Je vous en remercie.

T