Discussion :

[yieiyiei]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thautheme]

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...

[yieiyiei]

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

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yieiyiei]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuill1").Activate

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