Recherche via textBox sur plusieurs feuilles

[Mephi]

Bonjour,

Après de longues recherches infructueuses, je me lance pour solliciter l'aide d'experts.

Je souhaite pouvoir lancer une recherche dans un userform via un textbox, et ce, sur plusieurs pages.

Voici mon code, qui fonctionne pour 1 page :

Set trouve = Sheets("Devis").Range("B:B").Find(What:=Me.TextBox_ref.Text, LookIn:=xlValues, LookAt:=xlWhole)

     If trouve Is Nothing Then
        MsgBox "Référence inconnue"
        Me.TextBox_ref.SetFocus

    Else
        Cells.Find(What:=Me.TextBox_ref.Text, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

Les pages auquelles je souhaite agrandir ma recherches se nomment :

JANVIER FEVRIER MARS .... DECEMBRE

et la colonne concernée est toujours ("B:B")


Par avance, merci,

Anthony

 

[Mephi]

Re : Recherche via textBox sur plusieurs feuilles

En pièce jointe, mon tableau.
Le code n'est pas optimal, je sais... on fait avec ce qu'on a comme on dit...