USF Recherche

Private Sub AfficheListe_Click()
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object

Recherche = TextBox1

If Recherche = "" Then Exit Sub

Ligne = Worksheets("trib").Range("" & "B" & "65536").End(xlUp).Row
Set Plage = Worksheets("trib").Range("" & "B" & "4:" & "DL" & Ligne)
 
    With Plage
        Set C = .Find(Recherche)
        If Not C Is Nothing Then
            Adresse = C.Address
            Do
                ListBox1.AddItem C
                ListBox2.AddItem C.Address
                Set C = .FindNext(C)
            Loop While Not C Is Nothing And C.Address <> Adresse
        End If
    End With

End Sub

Private Sub CommandButton2_Click()
Dim nom, C, firstAddress, rep
nom = InputBox("A rechercher", "Recherche")
If nom = "" Then Exit Sub
With Sheets("trib").UsedRange
Set C = .Find(nom, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Activate
rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection")
If rep = vbNo Then Exit Sub
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
MsgBox "Recherche terminée!"
End Sub