Copier une cellule dans une autre par simple clic

Bonsoir

Proposition par double clic

Alt+F11 et mettre ce code dans la feuille concerné

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Sheets("feuil1").Range("a1").Copy
        With Sheets("Feuil1")
            .Range("c25").PasteSpecial Paste:=xlPasteValues   'copie les valeurs à l'identique
        End With
    Application.CutCopyMode = False
End Sub

Slts

Bonjour

J'ai entré le code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("feuil2").Range("a1").Copy
With Sheets("feuil2").Range("c25").PasteSpecial
Paste:=xlPasteValues 'copie les valeurs à l'identique
End With
Application.CutCopyMode = False
End Sub

Il apparait le message :
Erreur de compilation - Attendu : Expression

La police de la partie suivante du code se colore en rouge :
Paste:=xlPasteValues 'copie les valeurs à l'identique

Le fond des deux caractères ":=" ,après "Paste" et avant "xlPasteValues" se colore en bleu.

Quelle modification doit elle être apportée ?

Cordialement

bonjour

A1---> C25

est que A1-C25 seulement ou autres choix possibles: D3--->G6, T8---> A2 etc ?
on copie tout ou simplement la Valeur ?

 Michel

Bonjour,

"Je souhaiterais pouvoir copier une cellule dans une autre par un simple clic.
Par exemple : un clic sur la cellule A1 la copie en C25"

fichier joint pour 1 cellule

https://mon-partage.fr/f/nueXXLLE/

Slts

Bonjour

si on ne copie que la valeur de A1,

range("C5")=Range("A1").value

pour la copie de valeurs, copy-paste est à éviter en VBA (règle de base)

Bonjour,

Normal then s'écrit de cette façon et non de cette façon ten

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Target.Address = "$A$1" Then: Range("C5")= Target.Value 
End Sub 

Désolé michel_m je n'avais pas rafraîchi, donc pas vu ton post 8

Slts

J'ai rectifié "Ten" en "Then", cela n'a pas modifié le résultat

Bonjour

Avec le code du post 9 chez moi c'est fonctionnel, mettre ton fichier anonymisé à la disposition.

Slts