Copier une cellule precise et la coller dans une groupe de cellule

Bonjour, j'aurais besoin d'aide pour ce souci que je rencontre.

Je voudrais copier la cellule A23 seulement en double click

et ensuite pouvoir la coller sur n'importe quelle case de N22 jusqu'à HQ66

pour copier je pense que j'ai le bon code mais pour coller je ne trouve pas du tout.

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

If Not Intersect(Target, Range("A23")) Is Nothing Then
Cancel = False
Cancel = True
Range("A23").Select
Selection.Copy
End If
End Sub

ça c'est ce que j'ai pour copier et pour après je sais pas comment coller de N22 à HQ66.

merci d'avance

Bonjour Flipbuzz, le forum,

Pas sur d'avoir compris le besoin...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("A23")) Is Nothing Then
  Cancel = True
  Target.Copy Range("N22:HQ66")
 End If
End Sub

Code à coller dans le module de la feuille:

Cordialement,

alors c'est presque ça mais c'est pas ça, pour être plus claire je vais le définir en étape

Etape 1 : je double clique A23 pour copier la totalité de cette cellule.

Etape 2 : ensuite quand je clique 1 fois dans UNE seule cellule ( exemple N56 ) ça colle directement mais seulement dans celle-ci pas les autres.

Etape 3 : et pour faire correctement je voudrais pourvoir faire ça seulement dans les cellules N22 jusqu'a HQ66

( exemple si je clique sur "A5" rien ne se passe et si je clique sur "AB40" ça colle seulement dans cette cellule.

merci de prendre du temps pour m'aider

Re,

Merci pour ce retour,

nouvel essai...

Option Explicit
Dim mavaleur

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A23")) Is Nothing Then
     Cancel = True
       mavaleur = Target.Value
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(ActiveCell, Range("N22:HQ66")) Is Nothing Then
   If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Target = mavaleur: Set mavaleur = Nothing
 End If
End Sub

Quel est l'intérêt de double-cliquer sur A23 ?

Cordialement,

AH non desoler me suis tromper il me manquais une ligne

Re,

Bizarre, si je fais un double-clic en A23 et que je sélectionne une cellule dans la plage N22:HQ26, elle prend bien la valeur de A23...

Cordialement,

en faite la les 2 problème que j'ai c'est

- ça copie exclusivement le texte mais je voudrais la totalité genre la couleur les lettre...etc.

- quand je colle je voudrais que la commande sois toujours active que je n'ai pas besoin de refaire double clique pour recopier juste que ça colle sur N22 puis si je reclique sur N60 ça colle aussi

non désoler ça marchais bien ton code cest juste il me manquais le début désoler mdr,

mais j'ai ces 2 problèmes par contre que j'ai citer au dessus.

Option Explicit
Dim mavaleur, monadresse

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A23")) Is Nothing Then
     Cancel = True
       mavaleur = Target
       monadresse = Target.Address
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(ActiveCell, Range("N22:HQ66")) Is Nothing Then
   If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Target = mavaleur
    Range(monadresse).Copy
    Target.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
         Application.CutCopyMode = False
 End If
End Sub

tes trop fort ça fonctionne a la perfection

merci beaucoup :)