Bonjour Mtek,
Voilà avec le fichier, c'est nettement plus compréhensible
Il faut modifier ta Sub pour ajouter le numéro de ligne de la note en colonne 5 (invisible)
Sub AfficheNote()
Dim Lbx As MSForms.ListBox
' Définir l'objet sur lequel on va travailler
Set Lbx = UF_Photographie.ListBox_Note
'Lbx.ColumnCount = 4
Lbx.ColumnCount = 5
Lbx.ColumnHeads = False
Lbx.ColumnWidths = "60;362;50;25"
Lbx.Font.Size = 8
Lbx.Clear
Set c = Range("a:a").Find(UF_Photographie.TB_NoDossier.Value, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
i = 0
Do
Lbx.AddItem
Lbx.List(i, 0) = c.Offset(0, 4).Value
Lbx.List(i, 1) = c.Offset(0, 5).Value
Lbx.List(i, 2) = c.Offset(0, 6).Value
Lbx.List(i, 3) = Format(c.Offset(0, 7), "hh:mm")
Lbx.List(i, 4) = c.Row ' Inscrire le numéro de ligne colonne 5
Set c = Range("a:a").FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
End If
End Sub
Dans ton bouton, tu récupères ce numéro de ligne pour supprimer la bonne
Private Sub BT_SuprimeNote_Click()
Dim Ind As Integer, NumLig As Long
Dim mes As Integer
mes = MsgBox("Vous êtes sur le point de supprimer une note. Voulez vous continuez", vbExclamation + vbYesNo)
If mes = vbNo Then Exit Sub
' Sinon
Ind = Me.ListBox_Note.ListIndex
NumLig = Me.ListBox_Note.List(Ind, 4)
Sheets("NOTE").Rows(NumLig).EntireRow.Delete
ListBox_Note.RemoveItem (Ind)
End Sub
Voilà @+