Fonction "rechercher tout"

Re : Fonction "rechercher tout"

Comme quoi avec un peu de pratique et d'essai on trouve ce que l'on veut, je mets le code si cela interesse quelqu'un :

code = TextBox1.Value ' valeur a chercher
Sheets("BaseMP").Range("C:C").Select
With Selection
Set c = .Find(code, LookIn:=xlValues)
If c Is Nothing Then 'si la valeur n'est pas trouvée on s'arrete
Range("A1").Select
MsgBox ("Cette MP n'existe pas !!"), vbCritical
Exit Sub
End If
If Not c Is Nothing Then
firstAddress = c.Address

Do
Sheets("BaseMP").Select 'copier coller des cellules
c.Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Multi").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Set c = .FindNext(c)
If c Is Nothing Then
Adresse_encours = 0

Else
Adresse_encours = c.Address
End If
Loop While Not (c Is Nothing) And (Adresse_encours <> firstAddress)
End If
End With


Voila 😀