Discussion :

[NEC14]

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à.

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

Merci par avance pour votre aide

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub TxtNum_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Ws As Worksheet
Dim Code As String
Dim Rg As Range
 
Code = TxtNum.Value
If Code <> "" Then
    For Each Ws In ThisWorkbook.Worksheets
        If Left(Ws.Name, 1) = "L" Then
            Set Rg = Ws.Range("C:C").Find(Code, LookIn:=xlValues, lookat:=xlWhole)
            If Not Rg Is Nothing Then
                Cancel = True
                TxtNum.Value = ""
                MsgBox "Numéro existant"
                Exit Sub
            End If
        End If
    Next Ws
End If
End Sub

[NEC14]

Bonjour mercatog et merci beaucoup.