bonjour à tous je suis débutant en vba, pour le developpement d'un fichier de gestion de stock j'ai besoin d'effectuer une recherche d'un numero d'enregistrement sur l'ensemble des pages de mon classeur. Par contre je souhaite exclure une cellule de cette recherche. Mon code de recherche fonctionne très bien par contre je n'arrive pas à exclure cette cellule, 7pouvez-vous m'aider merci d'avance. cette cellule à exclure est la cellule K7 de la feuille "ENTREE STOCK"
code actuel :
enregistrement = Application.InputBox("Entrer le N° d'enregistrement recherché", Type:=2)
Range("L5").Value = enregistrement
Dim F As Worksheet
Dim Cel As Range
Dim Cel_Ref As Range
Set Cel_Ref = Range("L5")
For Each F In Sheets
For Each Cel In F.UsedRange
If (Cel.Address <> Cel_Ref.Address Or F.Name <> ActiveSheet.Name) And _
Cel Like Cel_Ref Then
F.Activate
Cel.Activate
Rows(ActiveCell.Row).Select
Exit Sub
End If
Next Cel
Next F
MsgBox "Pas de concordance"
'
End Sub
code actuel :
enregistrement = Application.InputBox("Entrer le N° d'enregistrement recherché", Type:=2)
Range("L5").Value = enregistrement
Dim F As Worksheet
Dim Cel As Range
Dim Cel_Ref As Range
Set Cel_Ref = Range("L5")
For Each F In Sheets
For Each Cel In F.UsedRange
If (Cel.Address <> Cel_Ref.Address Or F.Name <> ActiveSheet.Name) And _
Cel Like Cel_Ref Then
F.Activate
Cel.Activate
Rows(ActiveCell.Row).Select
Exit Sub
End If
Next Cel
Next F
MsgBox "Pas de concordance"
'
End Sub