Microsoft 365 copier coller avec un double clic

komarlehomard · 11 Avril 2022

Bonjour à tous,
Sur le fichier joint je voudrais copier la valeur de cellule sur la feuille index sur la plage D1224 juste après un double clic et la coller sur la cellule k16 de la feuille fiche indiv.
Il me faudrait un collage spécial car j'ai des formules de recherche sur ma cellule copié.
J'ai farfouillé sur les forums mais je n'arrive pas à adapter les codes vba à mon cas.
Vraiment merci d'avance pour le temps que vous allez m'accorder.

AtTheOne · 11 Avril 2022

Bonjour à toutes & à tous, bonjour @komarlehomard
Avec ce code qui fonctionne pour la plage D13 : D24 et pour une seule cellule à la fois :

Enrichi (BBcode):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Target.Count = 1 And Not Intersect(Target, Me.[D13:D24]) Is Nothing Then
         'Si le Code Name de la feuille "fiche indiv" est "feuil6"
          Feuil6.[K16] = Target
          Cancel = True
     End If
End Sub

Voir le fichier en PJ
Amicalement
Alain

AtTheOne · 11 Avril 2022

Bonjour à toutes & à tous, bonjour @komarlehomard
Avec ce code qui fonctionne pour la plage D13 : D24 et pour une seule cellule à la fois :

Enrichi (BBcode):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Target.Count = 1 And Not Intersect(Target, Me.[D13:D24]) Is Nothing Then
         'Si le Code Name de la feuille "fiche indiv" est "feuil6"
          Feuil6.[K16] = Target
          Cancel = True
     End If
End Sub

Voir le fichier en PJ
Amicalement
Alain

komarlehomard · 11 Avril 2022

Bonjour Alain
Merci beaucoup ça fonctionne très bien et grâce à ta petite annotation, j'ai compris l'erreur que je faisais.
Encore un kilos de merci pour le temps que tu m'as accordé

AtTheOne · 11 Avril 2022

Bonsoir @komarlehomard
Merci pour ton retour, si c'est bien la solution tu peux marquer le post 2 comme étant la solution.
Amicalement
Alain

Microsoft 365 copier coller avec un double clic

komarlehomard

XLDnaute Junior

Pièces jointes

AtTheOne

AtTheOne

XLDnaute Accro

Pièces jointes

komarlehomard

XLDnaute Junior

AtTheOne

XLDnaute Accro

Discussions similaires