Limiter la zone de critères

[jose_67]

Bonjour à tous, voici mon problème
J'ai une macro de recherche dans un tableau,
Zone de critère ligne 1 à 10
Zone de recherche 10 à ….

Cette marco est déclenchée par un double click
Comment faire pour limiter ma sélection "Target" aux lignes 1 à 10

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target = "" Then Exit Sub
        Formule = "=VLOOKUP(RC[-1],R[3]C[-1]:R[5]C[17],19)"
        ActiveCell.Offset(0, 1).Value = Formule
       ActiveCell.Offset(0, 1).Select
       Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
End Sub

Merci pour l'aide

Cordialement José

 

[Pierrot93]

Re : Limiter la zone de critères

Bonjour Jose

essaye peut être ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 11 Then
'ton code
End If
End Sub

bonne journée
@+

 

[jose_67]

Re : Limiter la zone de critères

Merci "Pierrot93" Super çà fonctionne.
çà m'évite de bloquer les cellules par mot de passe.

Cordialement José