XL 2010 Double clic.

[Francky79]

Bonjour à tous,

Avec le code ci-dessous je fais un double clic dans les cellules A6----A60 et la valeur se copie dans la cellule D1.
Jusque-là ça va, mais avec la partie de code en gras je pensais limiter le double clic aux cellules A6---A60 mais pas du tout, je peux cliquer partout dans la feuille et
n'importe quelle valeur ce copie.

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

Dim cell As Object
For Each cell In Range("A6:A60")
Range("D1").Value = ActiveCell.Value
Next cell
Cancel = True

End Sub

Pouvez-vous me donner un coup de main pour résoudre ce problème ?
Merci

 

[Rhysand]

Bonjour à tous

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

Dim i As Integer

If Target.Column = 1 Then
    For i = 6 To 60
        If Target.Row = i Then
            Range("D1").Value = ActiveCell.Value
        Else
        'Cancel = True
        End If
    Next i
End If

End Sub

J'espère aider

 

[Dudu2]

Bonjour,
Ou alors ceci...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Me.Range("A6:A60"), Target) Is Nothing Then Exit Sub
    Range("D1").Value = Target.Value
    Cancel = True
End Sub

 

[Phil69970]

Bonjour Francky, le forum

If Not Application.Intersect(Target, Range("A6:A60")) Is Nothing Then
      'Ici ton code
      Range("D1").Value = ActiveCell.Value 
end if

@Phil69970

 

[Francky79]

bonjour Rhysand,

Merci, impeccable.

Bonne soirée,