Copier/coller automatique sous exel
Résolu
onallam
-
onallam Messages postés 3 Statut Membre -
onallam Messages postés 3 Statut Membre -
Bonjour,
en utilisant Exel,je souhaiterai effectuer un copier/coller automatique d'une cellule de la feuille 1 vers la feuille 2.
Voici un exemple:
Sur la feuille 1,j'ai une colonne A contenant des chiffres de 1 à 20 ( A1=1 ; A2=2 ;...)
Je souhaiterai qu'en cliquant sur une cellule,par exemple (A5=5) elle se retrouve automatiquement sur la feuille 2 en (A1) et on obtiendrai donc (A1=5).
Cordialement.Merci d'avance.
en utilisant Exel,je souhaiterai effectuer un copier/coller automatique d'une cellule de la feuille 1 vers la feuille 2.
Voici un exemple:
Sur la feuille 1,j'ai une colonne A contenant des chiffres de 1 à 20 ( A1=1 ; A2=2 ;...)
Je souhaiterai qu'en cliquant sur une cellule,par exemple (A5=5) elle se retrouve automatiquement sur la feuille 2 en (A1) et on obtiendrai donc (A1=5).
Cordialement.Merci d'avance.
A voir également:
- Copier/coller automatique sous exel
- Historique copier coller - Guide
- Copier-coller - Accueil - Informatique
- Réponse automatique thunderbird - Guide
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
1 réponse
Bonjour,
Tu crée une macro qui va copier le contenu de la cellule sur laquelle tu es dans la cellule de la même référence mais dans la feuille 2.
Pour l'utiliser tu affecte un raccourci clavier à cette macro.
Ensuite tu auras à faire: clic sur la cellule à copier et appui sur le touche que tu auras affecté.
Salutations
Tu crée une macro qui va copier le contenu de la cellule sur laquelle tu es dans la cellule de la même référence mais dans la feuille 2.
Pour l'utiliser tu affecte un raccourci clavier à cette macro.
Ensuite tu auras à faire: clic sur la cellule à copier et appui sur le touche que tu auras affecté.
Salutations
cette macro seble répondre à ta demande: chaque fois que tu cliqueras dans A1:A20, la valeur de la cellule cliquée sera inscrite en feuil2 A1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A20")) Is Nothing Then: Exit Sub
Sheets("feuil2").Range("A1") = Target
End Sub
installer:
clic droit sur l'onglet feuil1
Visualiser le code
copier-coller la macro
et merci pour la macro.
Je viens de l'essayer et elle ne correspond pas tout à fait à ce que je voudrais faire.Peut-être peux-tu encore m'aider?
Quand je clique sur une cellule de la feuille 1 elle va directement en A1 de la feuille 2.Parfait.Ce que je souhaiterai en plus c'est que lorsque je clique sur une 2 ème cellule elle se retrouve en A2,une 3 ème en A3, etc...
Par avance merci.
Tu aurais pu le dire avant que tu voulais cumuler...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A20")) Is Nothing Then: Exit Sub
With Sheets("feuil2")
derlig = .Range("A65536").End(xlUp).Row + 1
.Cells(derlig, 1) = Target
End With
'facultatif: montre la feuil2
Sheets("feuil2").Activate
End Sub
Fais attention à ce que tu veux lors de prochains messages: les contributeurs font des efforts pour aider, il serait quand même préférable que les demandeurs fassent pareil
Michel
désolé de m'être mal exprimé. Merci encore.
Onallam
merci pour ta réponse mais je n'arrive pas à créer la macro.
je devrais y arriver avec celle proposée dans le message suivant.
Merci encore.