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
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
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
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