Clic sur cellule et contenu se retrouve dans autre cellule

[gourdin]

Bonsoir,

En cliquant sur une cellule de la feuil1, je souhaite
que son contenu se retrouve sur une autre cellule de la feuil2
Exemple :
en cliquant sur la cellule E7 de la feuil1, son contenu se retrouve dans la cellule A4 de la feuille2

voir exemple

Merci

 

[Roland_M]

Re : Clic sur cellule et contenu se retrouve dans autre cellule

bonsoir à tous

essai comme ceci avec double clic dans la cellule.
tu mets ce code côté code de la feuille 1
(attention ! tu dis feuille 1 E7 mais dans ton exemple tu l'as mis en E8 !?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$7" Then Sheets(2).Range("A4") = Sheets(1).Range("$E$7"): Cancel = True
End Sub

 

[gourdin]

Re : Clic sur cellule et contenu se retrouve dans autre cellule

Merci,

Mais comment faire si je souhaite ne pas limiter le clic à la même cellule (E7) mais à chacune des celulles de E7 à E50 ?
Bref si je clic dans l'une des celulles de E7 à E50 je retrouve son contenu dans la même cellule E8 de feuil2

 

[Roland_M]

Re : Clic sur cellule et contenu se retrouve dans autre cellule

re

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
NoDeCol = Target.Column
NoDeLig = Target.Row
If NoDeCol <> 5 Then Exit Sub 'No de la Colonne E = 5
If NoDeLig >= 7 And NoDeLig <= 50 Then
Sheets(2).Range("A8") = Sheets(1).Cells(NoDeLig, NoDeCol)
Cancel = True
End If
End Sub

 

[gourdin]

Re : Clic sur cellule et contenu se retrouve dans autre cellule

Merci beaucoup

 

[gourdin]

Re : Clic sur cellule et contenu se retrouve dans autre cellule

Pour info, en recherchant dans le forum j'ai également trouvé cette solution :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D7😀50")) Is Nothing Then
Sheets(2).Select
ActiveSheet.Range("A8") = Target
End If
End Sub

Bonne soirée