Complément code - petite macro evenementielle

[gourdin]

Bonjour,

Je cherche un complément sur un petit code macro

Le mieux est de voir l'exemple simplifié

Merci

 

[mromain]

Re : Complément code - petite macro evenementielle

bonjour gourdin,

voici un code qui a l'air de fonctionner :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
Range("H14").Value = Target.Offset(0, -1)
[COLOR=Red][B]Range("G14").Value = Target.Offset(0, -2).End(xlUp)[/B][/COLOR]
End If
End Sub

a+

 

[BOISGONTIER]

Re : Complément code - petite macro evenementielle

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("E:E")) Is Nothing Then
   Range("H14").Value = Target.Offset(0, -1)
   Range("G14").Value = Cells(Target.CurrentRegion.Row - 2, 3)
 End If
End Sub

JB

 

[gourdin]

Re : Complément code - petite macro evenementielle

bonjour,

private sub worksheet_selectionchange(byval target as range)
 if not intersect(target, range("e:e")) is nothing then
   range("h14").value = target.offset(0, -1)
   range("g14").value = cells(target.currentregion.row - 2, 3)
 end if
end sub

jb

merci beaucoup