Copier une cellule dans une autre par simple clic
Patrick35300
Messages postés
1
Statut
Membre
-
The_boss_68 Messages postés 959 Date d'inscription Statut Membre Dernière intervention -
The_boss_68 Messages postés 959 Date d'inscription Statut Membre Dernière intervention -
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
Merci à vous
Patrick
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
Merci à vous
Patrick
8 réponses
-
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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)
-
Et en VBA, cela donne
Option Explicit
'-------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'on est dans le module feuille1, il est inutile de préciser qu'on est dans feuil1
'on assure qu'on a bien double-cliquer danS A1
If Target.Address = "$A$1" Then: Range("C5") = Target.Value
End Sub -
Bonjour
Excusez moi pour ma réponse tardive, due à un évènement indépendant de ma volonté.
J'ai entré le code suivant:
Option Explicit
________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Ten: Range("C5")= Target.Value
End Sub
Le message suivant est apparu :"Erreur de compilation Attendu : Then ou Goto " -
-
-
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 -
-
Bonjour
Avec le code du post 9 chez moi c'est fonctionnel, mettre ton fichier anonymisé à la disposition.
Slts
