Bonjour à tous,
J'ai commencé ce code qui doit me permettre de rechercher une valeur dans plusieurs feuilles de mon classeur commençant par L. Hors je n'arrive pas à faire cette recherche.
Ce qui me manque c'est la partie recherche dans toutes les feuilles.
Par exemple, dans le TxtNum on saisi X000001. Alors la macro doit rechercher dans toutes les feuilles commençant par L si ce numéro existe déjà.
Merci par avance pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub TxtNum_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim rg As Range If TxtNum.Value<>"" Then Set rg=Sheets(" ").Range("C:C").Find(TxtNum.Text)If Not rg Is Nothing Then MsgBox "Numéro existant" Cancel = True TxtNum.Value="" End If End If
Partager