Copier une cellule dans une autre par simple clic
Patrick35300
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention -
The_boss_68 Messages postés 952 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
A voir également:
- Copier une cellule dans une autre par simple clic
- Comment copier une vidéo youtube - Guide
- Aller à la ligne dans une cellule excel - Guide
- Iphone 14 simple - Guide
- Bloquer une cellule excel - Guide
- Super copier - Télécharger - Gestion de fichiers
8 réponses
Bonsoir
Proposition par double clic
Alt+F11 et mettre ce code dans la feuille concerné
Slts
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
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
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
"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)
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 "
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 "