Copier/coller automatique sous exel

Résolu

onallam -

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.

Configuration: Windows XP
Firefox 2.0.0.13

Afficher la suite

1 réponse

Réponse 1 / 1
magouero
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
0
1. michel_m Contributeur
  
  Bonjour tous les 2
  
  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
  
  0
2. onallam
  
  bonsoir,
  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.
  
  0
3. onallam
  
  @michel_mBonsoir
  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.
  
  0
4. michel_m Contributeur
  
  @onallamBonjour,
  
  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
  
  0
5. onallam
  
  @michel_mBonjour,
  désolé de m'être mal exprimé. Merci encore.
  Onallam
  
  0

Copier/coller automatique sous exel

1 réponse

Discussions similaires

Newsletters