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
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
bonjour,
Code: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