exclure une cellule d'une recherche

[vkaeros]

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

 

[vkaeros]

Re : exclure une cellule d'une recherche

Re je peu également exclure la feuille "ENTREE STOCK" entierrement de la recherche si pas possible d'exclure une cellule puisque je n'ai rien à trouver sur cette feuille.

merci

 

[vkaeros]

Re : exclure une cellule d'une recherche

Pas de réponse pour mon petit soucis, merci à l'avance si quelqu'un parvient à me trouver une solution

 

[Softmama]

Re : exclure une cellule d'une recherche

Bonjour,

(A tester), une proposition :

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 And (Cel.Address(0,0) <> "K7" And Ucase(F.Name)<>"ENTREE STOCK") Then
F.Activate
Cel.Activate
Rows(ActiveCell.Row).Select
Exit Sub
End If
Next Cel
Next F
MsgBox "Pas de concordance"
'
End Sub

 

[vkaeros]

Re : exclure une cellule d'une recherche

Merci beaucoup marche impeccable ! un des derniers code qu'il me manquait pour finaliser mon fichier ! merci encore