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