Private Sub CommandButton3_Click()
With Me.ListBox1 'prend en compte la ListBox1
For lig = .ListCount - 1 To 0 Step -1
If .Selected(lig) = True Then
tx = .Column(1, lig) 'récupère le nom
tx = tx & .Column(2, lig) 'récupère le prénom
tx = tx & .Column(3, lig) 'récupère la chambre
tx = tx & .Column(4, lig) 'récupère lieu de rdv
For k = 2 To Feuil2.[B65536].End(3).Row
If Feuil2.Cells(k, 2) & Feuil2.Cells(k, 3) & Feuil2.Cells(k, 4) & Feuil2.Cells(k, 5) = tx Then
Feuil2.Cells(k, 8) = "Traité " & Date: .RemoveItem (lig): [COLOR="Red"][B]lig = lig - 1: [/B][/COLOR]Exit For
End If
Next
End If
Next
End With 'fin de la prise en compte de la ListBox1
End Sub