Complément code - petite macro evenementielle

gourdin · 29 Avril 2009

Bonjour,

Je cherche un complément sur un petit code macro

Le mieux est de voir l'exemple simplifié

Merci

mromain · 29 Avril 2009

Re : Complément code - petite macro evenementielle

bonjour gourdin,

voici un code qui a l'air de fonctionner :

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)
[COLOR=Red][B]Range("G14").Value = Target.Offset(0, -2).End(xlUp)[/B][/COLOR]
End If
End Sub

a+

BOISGONTIER · 29 Avril 2009

Re : Complément code - petite macro evenementielle

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

gourdin · 30 Avril 2009

Re : Complément code - petite macro evenementielle

boisgontier à dit:

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

merci beaucoup

Complément code - petite macro evenementielle

gourdin

XLDnaute Impliqué

Pièces jointes

mromain

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

Discussions similaires

Complément code - petite macro evenementielle

gourdin

XLDnaute Impliqué

Pièces jointes

mromain

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency