Bonjour a vous tous...
Un ptit problème dans mon code, je voudrais lors du double clic, qu'il me recopie la valeur de la cellule ou je fais le double clic, et la recopie sur la feuil1 en a1 par exemple , mais il me bloque à la cellule :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim F1 As Range
Set F1 = Range("B3:b500")
Application.ScreenUpdating = False
ActiveSheet.Unprotect "bb"
If Not Application.Intersect(F1, Range(Target.Address)) _
Is Nothing Then
a = ActiveCell.Value
Application.CutCopyMode = False
Sheets("feuil1").Select
Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Application.ScreenUpdating = False
ActiveSheet.protect "bb"
End Sub
en avance merci a vous les forumiens et forumiennes...
Un ptit problème dans mon code, je voudrais lors du double clic, qu'il me recopie la valeur de la cellule ou je fais le double clic, et la recopie sur la feuil1 en a1 par exemple , mais il me bloque à la cellule :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim F1 As Range
Set F1 = Range("B3:b500")
Application.ScreenUpdating = False
ActiveSheet.Unprotect "bb"
If Not Application.Intersect(F1, Range(Target.Address)) _
Is Nothing Then
a = ActiveCell.Value
Application.CutCopyMode = False
Sheets("feuil1").Select
Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Application.ScreenUpdating = False
ActiveSheet.protect "bb"
End Sub
en avance merci a vous les forumiens et forumiennes...