Fonction "rechercher tout"

[D_e_X_t_e_R]

Bonjour tout le monde,
Petit nouveau dans le forum et premiere question 😱, Voila je voudrais savoir s'il existe un moyen d'utiliser la fonction de "rechercher tout" apres un ctl f en vba , et d'afficher les valeurs dans une listbox ?

Merci de votre aide 😀

 

[D_e_X_t_e_R]

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 😀