double clic, copier valeur cellule dans autre cellule

[xpxpplus]

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

[michel_m]

bonjour
essaies:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect "bb"
If Not Application.Intersect(target, Range("B3:b500")) Is Nothing Then

Sheets("feuil1"). Range("a1")=target
End If
ActiveSheet.protect "bb"
End Sub

Si "feuil1" est ta feuille active, tu n"as pas besoin de préciser sheets("feuil1") ni de figer l'écran; sinon, tu n'as besoin de déprotéger

[Nevil]

Salut,

Dans dans feuil2 par exemple tu peux mettre:

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

Dim F1 As Range, a As String, ligne As Integer

Set F1 = Application.Intersect(Target, Range("B3:B500"))

If (F1 Is Nothing) Then
Else

ActiveSheet.Unprotect "bb"

a = ActiveCell.Value
ligne = ActiveCell.Row

Cells(ligne, 2).Select
Selection.Copy

Sheets("feuil1").Range("a1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveSheet.Protect "bb"

End If

End Sub

[xpxpplus]

Bonjour Michel M,

Cela fonctionne , je te remercie, tu n'aurais pas une astuce, comme ma feuille est protégée, il me met toujours la boite de message suivante lorsque je fais le double clic
La cellule ou le graph est protégé et il demande d'enlever la protection, y a t'il moyen que ce message n'apparaisse pas tout en gardant ma feuille protégée.

Merci

Marcmarc

[Nevil]

je viens d'essayer le code Application.DisplayAlerts = false en début, mais ca ne change rien.
a part comme ca, je ne vois pas d'autre solution.

[xpxpplus]

ok, ici c'est bon, cela fonctionne avec : j'ai juste placer avant la déprotection de la feuille et c'est ok :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveSheet.Unprotect "bb"
If Not Application.Intersect(Target, Range("B3:b500")) Is Nothing Then
Sheets("debut").Range("a425") = Target
End If
ActiveSheet.Protect "bb"
End Sub

Merci a toi

[Nevil]

Bon alors tant mieux :-)

A+