Copier une cellule dans une autre par simple clic
Fermé
Patrick35300
Messages postés
1
Date d'inscription
mercredi 31 octobre 2018
Statut
Membre
Dernière intervention
31 octobre 2018
-
31 oct. 2018 à 23:14
The_boss_68 Messages postés 928 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 10 juin 2024 - 8 nov. 2018 à 13:03
The_boss_68 Messages postés 928 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 10 juin 2024 - 8 nov. 2018 à 13:03
A voir également:
- Copier une cellule dans une autre par simple clic
- Aller à la ligne dans une cellule excel - Guide
- Copier une vidéo youtube - Guide
- Iphone 14 simple - Guide
- Verrouiller une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
8 réponses
The_boss_68
Messages postés
928
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
10 juin 2024
177
31 oct. 2018 à 23:34
31 oct. 2018 à 23:34
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
1 nov. 2018 à 14:08
1 nov. 2018 à 14:08
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
The_boss_68
Messages postés
928
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
10 juin 2024
177
1 nov. 2018 à 14:31
1 nov. 2018 à 14:31
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
1 nov. 2018 à 16:52
1 nov. 2018 à 16:52
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)
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
1 nov. 2018 à 17:03
1 nov. 2018 à 17:03
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 "
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
7 nov. 2018 à 13:32
7 nov. 2018 à 13:32
faute de frappe: relis
If Target.Address = "$A$1" Ten: Range("C5")= Target.Value
If Target.Address = "$A$1" Ten: Range("C5")= Target.Value
The_boss_68
Messages postés
928
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
10 juin 2024
177
Modifié le 7 nov. 2018 à 13:40
Modifié le 7 nov. 2018 à 13:40
Bonjour,
Normal then s'écrit de cette façon et non de cette façon ten
Désolé michel_m je n'avais pas rafraîchi, donc pas vu ton post 8
Slts
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
The_boss_68
Messages postés
928
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
10 juin 2024
177
8 nov. 2018 à 13:03
8 nov. 2018 à 13:03
Bonjour
Avec le code du post 9 chez moi c'est fonctionnel, mettre ton fichier anonymisé à la disposition.
Slts
Avec le code du post 9 chez moi c'est fonctionnel, mettre ton fichier anonymisé à la disposition.
Slts