BeforeDoubleClick mais sur plusieurs cellules et déstination

Signaler
-
Messages postés
12692
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 septembre 2020
-
Bonjour à tous,

Je sèche malgré mes "bidouilles" je n'arrive pas à modifier le code ci-dessous pour définir différentes zones de sélection et de destination. Pour l'instant ca copie en M1 la valeur de la cellule ou je double clic en zone G11:G20 mais que puis-je ajouter si je veux faire la même chose sur la plage H11:H20 et qui se copie en N1 par exemple ? Merci pour votre aide.

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

Dim cell As Object

For Each cell In Range("g11:g20")

Range("M1").Value = ActiveCell.Value

Next cell

Cancel = True

End Sub

1 réponse

Messages postés
12692
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 septembre 2020
2 024
Bonjour Links

Alors là le code est plus simple encore
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
y = Target.Column
Cells(1, y + 6).Value = Target.Value
End Sub

Cdlmnt
Via