Clic sur cellule et contenu se retrouve dans autre cellule

Roland_M

XLDnaute Barbatruc

• 11 Septembre 2009

• #2

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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 11 Septembre 2009

• #3

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 11 Septembre 2009

• #4

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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 11 Septembre 2009

• #5

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

Merci beaucoup

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 11 Septembre 2009

• #6

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

 

Vote positif 0 Vote négatif