Exclure une feuille lors d'une recherche

bonjour à tous le forum

je bute sur un petit problème.

j'ai un userform avec une textbox et un bouton pour rechercher un article.

mon code fonctionne très bien pour tous le classeur mais j'aimerais exclure une feuille("histo") de cette recherche.

Dim X As Range
Dim s As Worksheet
For Each s In Worksheets
Set X = s.Range("A:T").Find(TextBox11.Value, , xlValues, xlWhole, xlByColumns, , False)
If Not X Is Nothing Then
ComboBox1.Value = s.Name
ComboBox2.Value = s.Cells(X.Row, 1)
End If
Next s

j'ai essayer avec la méthode array mais sans résultat.

si vous avez une petite idée

merci et bonne journée

bonjour,

Essaie :

Sub test()
Dim X As Range
Dim s As Worksheet
For Each s In Worksheets
   If Not s.Name = "histo" Then
      Set X = s.Range("A:T").Find(TextBox11.Value, , xlValues, xlWhole, xlByColumns, , False)
      If Not X Is Nothing Then
      ComboBox1.Value = s.Name
      ComboBox2.Value = s.Cells(X.Row, 1)
      End If
   End If
Next s
End Sub

A+

re,

merci beaucoup galopin01 c'est nickel...