Probleme avec select

bonsoir

j'ai un petit soucis sur mon code que je n'arrive pas à solutionner , le voici ? c'est un bout de code que j'ai placé dans une feuille nommée "cumul"

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

dim cell as range

chemin = ThisWorkbook.Path
Workbooks.Open Filename:=chemin & "\COMPTA.xls"

for each cell in workbooks("EXERCICES 2012.xls").sheets("extractions").range("b21:b100") 

if target = cell then 

cell.select
selection.copy
workbooks("EXERCICES 2012.xls").sheets("OPERATIONS").range("j19").select  
selection.paste   

cell.offset(0,1).copy
workbooks("EXERCICES 2012.xls").sheets("OPERATIONS").range("l19").select
selection.paste

call OuvrirDoc2 ' macro qui me permet ensuite de choisir ma feuille dans le classeur COMPTA apres que j19 et L19 soient renseignées

end sub

bref , j'ai une erreur à la ligne :

cell.select

avec l'information " la methode select de la classe range à echoué " ma feuille est deprotegée mais je ne vois pas l'origine de

l'anomalie , en auriez vous une idée ?

Merci pour vos conseils

End Sub

Bonjour

Essaie

Target.Select

Cordialement

Bonjour , ca ne marche pas aussi , merci quand meme pour votre réponse

Bonsoir,

La question est : quel est le target?

(en plus sans majuscule dans le code)

Cdlt.

...dans mon code target est partout en majuscule

Bonjour,

Tu n'as pas répondu à la question.

Il faut que tu définisses 'Target' comme proposé ci-dessous.

A tester

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim chemin As String
Dim cell As Range
    chemin = ThisWorkbook.Path
    Workbooks.Open Filename:=chemin & "\COMPTA.xls"
   'x est une variable 'Range'
    Target = x
    For Each cell In Workbooks("EXERCICES 2012.xls").Sheets("extractions").Range("b21:b100")
        If cell = Target Then
            cell.Copy Destination:=Workbooks("EXERCICES 2012.xls").Sheets("OPERATIONS").Range("j19")
            cell.Offset(0, 1).Copy Destination:=Workbooks("EXERCICES 2012.xls").Sheets("OPERATIONS").Range("l19")
        End If
    Next
    ' macro qui me permet ensuite de choisir ma feuille dans le classeur COMPTA
    ' apres que j19 et L19 soient renseignées
    Call OuvrirDoc2
End Sub

Merci jean Eric ca marche ! je prend note de ton conseil