copier/coller par double clic une cellule vers une autre dans une plage specifique

[mig_59]

Bonjour à tous et à toutes

Petit souci code VBA
J'ai touvé sur le forum un petit bout de code VBA me permetant de copier/coller par double clic une cellule vers une autre

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Sheets("aout").Range("A51").Value = Target.Value
    Cancel = True
End Sub

Le souci c'est que quelque soit l'endroit du "double cliqué" sur la feuille de calcul la copie se fait vers la cellule A51
J'aimerais copier / coller par double clique uniquement les cellules de la plage A8:A42 vers la cellule A51

Merci pour votre aide
Cdt

 

[Dranreb]

Re : copier/coller par double clic une cellule vers une autre dans une plage specifiq

Bonjour.
Ajoutez, si j'ai bien compris, cette instruction en tête du module:

If intersect(Me.[A8:A42], Target) Is Nothing Then Exit Sub

À +

 

[david84]

Re : copier/coller par double clic une cellule vers une autre dans une plage specifiq

Bonjour,
pas de fichier, pas de test.
Je te conseille de regarder du côté de la méthode Intersect afin de ne déclencher la copie de ta cellule que lorsque tu es dans la plage("A8:A42"). If Not Intersect(TaPLage,Target) is nothing then...
A+

 

[chris]

Re : copier/coller par double clic une cellule vers une autre dans une plage specifiq

Bonjour

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("A8:A42")) Is Nothing Then Exit Sub
    Sheets("aout").Range("A51").Value = Target.Value
    Cancel = True
End Sub

edit : bing david, danreb ! Bonnes fêtes à tous

 

[Paritec]

Re : copier/coller par double clic une cellule vers une autre dans une plage specifiq

bonjour Mig59 le forum
voilà
a+
papou

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row >= 8 And Target.Row <= 42 And Target.Column = 1 Then Range("A51").Value = Target.Value
    Cancel = True
End Sub

EdIt : Oula je suis très en retard Bonne Année 2012 à Tous et Toutes

 

[mig_59]

Re : copier/coller par double clic une cellule vers une autre dans une plage specifiq

Merci à tous,

Vos soluces fonctionnent correctement.
Il ne me reste plus à vous remercier de la rapidité de vos réponces.
Je vous dit à l'année prochaine, en attendant bon reste toute la communauté EXCEL-DOWNLOADS.COM et BONNE ANNEE 2012

Mig