Recherche par userform dans tout un classeur

[Ptitgoud]

Bonjour,
Je souhaiterais réaliser une userform permettant d'effectuer une recherche dans tout un classeur excel.
Pour effectuer une recherche sur une page j'y arrive mais je n'arrive pas à créer la boucle permettant de le faire sur toutes les feuilles.

Voici le code auquel j'ai pensé mais qui ne fonctionne pas (au niveau du For each Wsh ... la variable Wsh me renvoie "Nothing" je suppose que le problème vient donc de là) :

Private Sub Recherche_Click()
Dim Wsh As Worksheet

valeur = TextBox1.Value

If valeur <> "" Then
For Each Wsh In ThisWorkbook.Worksheets
Set cellule = Wsh.Cells.Find(valeur, Lookin:=xlValue)
   If Not cellule Is Nothing Then
      Label1.Caption = "Produit enregistré"
      Else: Label1.Caption = "Produit non enregistré"
   End If
Next
End If
End Sub

Merci d'avance!

 

[BOISGONTIER]

Re : Recherche par userform dans tout un classeur

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormChercheMotToutClasseurFind.xls

JB

 

[JNP]

Re : Recherche par userform dans tout un classeur

Bonjour PtiGoud, Jacques ,
Vu que tu ne sors pas de ta boucle, si la valeur n'existe pas dans la dernière feuille, ce sera forcément "Produit non enregistré ...
Donc

If Not cellule Is Nothing Then
    Label1.Caption = "Produit enregistré"
    Exit Sub
Else
    Label1.Caption = "Produit non enregistré"
End If

Bonne suite

 

[Ptitgoud]

Re : Recherche par userform dans tout un classeur

Ah oui maintenant ca fonctionne!
Merci c'était donc pas grand chose!