Bonjour,
une façon simple de résoudre ton pb:
Private Sub CommandButton1_Click()
Sheets("Heures" ).Select
Dim I As Integer
ListBox1.Clear
ListBox1.ColumnCount = 6
For I = 1 To Sheets("Heures" ).Range("A65535" ).End(xlUp).Row
If Sheets("Heures" ).Cells(I, 14).Value = "En cours" Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = Feuil2.Cells(I, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Feuil2.Cells(I, 8).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = Feuil2.Cells(I, 4).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = Feuil2.Cells(I, 6).Value
ListBox1.List(ListBox1.ListCount - 1, 4) = Feuil2.Cells(I, 14).Value
ListBox1.List(ListBox1.ListCount - 1, 5) = I
End If
Next
ListBox1.BoundColumn = 100
ListBox1.ColumnWidths = "75;100;75;150;100"
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Hide
marow = ListBox1.List(ListBox1.ListIndex, 5)
ActiveWorkbook.FollowHyperlink Address:=Feuil2.Cells(marow, 6).Hyperlinks(1).Address, _
NewWindow:=True
End Sub