BeforeDoubleClick mais sur plusieurs cellules et déstination

Fermé

Links - 14 sept. 2020 à 21:14
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 - 14 sept. 2020 à 23:06

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

A voir également:

BeforeDoubleClick mais sur plusieurs cellules et déstination
Formule excel pour additionner plusieurs cellules - Guide
Verrouiller cellules excel - Guide
Excel concatener plusieurs cellules - Guide
Le fichier est trop grand pour le système de fichier de destination ✓ - Forum Windows
Colis en traitement sur le site logistique de destination ✓ - Forum Consommation & Internet

1 réponse

Réponse 1 / 1

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
14 sept. 2020 à 23:06

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

Discussions similaires

couche de destination masquée

impossible de joindre l'hote de destination

Que signifie ''Votre colis est arrivé sur son site de distribution'' ?

Colis à l'aéroport.

Erreur des dossiers compressés

Discussions similaires

Newsletters