vba copier/coller valeur cellule en double cliquant sur une autre

Bonjour,

j'ai deux feuilles et je souhaiterais faire une copie d'une valeur de cellule vers une autre sur l'autre feuille mais la cellule d'origine sera variable.

J'aimerais donc arriver a ce que si je double clic sur la cellule I10, il me copie la valeur A10 de la feuil1 sur la cellule B1 de la feuil2. Si je double clic sur I15, il copie la valeur A15 en B1 de la feuil2 ...etc

vous voyez ce que je veux dire ? :)

Pour le moment j'ai ceci qui ne fait absolument pas ce que je souhaite mais qui copie un champ fixe là où je double clic.

Code:

---

1 2 3 4 5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   ActiveCell.Value = Cells(5, 1).Value   End Sub

---

merci pour votre aide

Bonjour Yieiyiei, bonjour le forum,

Tu double-cliques où ? Dans quel onglet ? D'après tes explications, tout se recopie dans B1 !... Est-ce normal ? Difficile de te répondre sans plus d'explications...

Bonjour Thautheme,

en fait sur ma première feuille j'ai un tableau avec des valeurs, ma deuxième feuille est une feuille de présentation qui servira à copier et coller dans un mail pour envoie.

Ce que je souhaite c'est qu'en double cliquant à droite (donc sur un cellule) de la ligne qui m'intéresse sur la feuille1, il copie la valeur de la colonne A de la ligne en B10 (sur la feuille2) par exemple, la valeur B de ligne en H3 (sur la feuille2) ...etc

ma difficulté est donc que je peux double cliquer à des hauteurs différentes sur mon tableau et qu'il doit copier les valeurs de la ligne sur laquelle je serai.

sur la feuille 2 les cellules restent les mêmes en fonction de la colonne de la feuille1.

je suis un peu plus clair ?

j'ai un début pour la sélection mais pas pour la copie, il copie dans la cellule dans laquelle je double clic et non sur la feuille 2 dans une cellule précise.

Et j'aimerais également qu'il ne copie pas la mise en forme, que la valeur

Bonjour Yieiyiei, bonjour le forum,

Pas sûr d'avoir compris malgré tes précisions... Le code ci-dessous à mettre dans le composant Feuil1(Feuiil1) :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim O As Worksheet   Set O = Sheets("Feuil2") O.Range("B10").Value = Cells(Target.Row, 1).Value O.Range("H3").Value = Cells(Target.Row, 2).Value 'etc End Sub

---

merci, tu m'as compris :) et ton code est plus propre.

pour le moment j'arrivais à faire ce que je voulais avec ça :

Code:

---

1 2	Selection.Offset(0, -6).Copy Sheets("Feuill2").Range("B11").PasteSpecial Paste:=xlPasteValues

---

mais étrangement après deux fois cette commande je dois faire

Code:

---

Sheets("Feuill1").Activate

---

pour en remettre deux ...etc (j'ai plusieurs cellules à copier/coller)