[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range, Cancel [COLOR=NAVY]As Boolean[/COLOR])
[COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Range("B3:B65536")) [COLOR=NAVY]Is Nothing Then[/COLOR]
Cancel = [COLOR=NAVY]True[/COLOR]
Target.Interior.ColorIndex = 3
Target.Offset(0, 8).Value = Target.Value
[COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]
[SIZE=2][COLOR=NAVY]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range, Cancel [COLOR=NAVY]As Boolean[/COLOR])
[COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, [B]Range("A3:G65536")[/B]) [COLOR=NAVY]Is Nothing Then[/COLOR]
Cancel = [COLOR=NAVY]True[/COLOR]
Target.Interior.ColorIndex = 3
[B]Target.EntireRow.Range("J1").Value = Target.Value
[/B] [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]
[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range, Cancel [COLOR=NAVY]As Boolean[/COLOR])
[COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Range("A3:G65536")) [COLOR=NAVY]Is Nothing Then[/COLOR]
Cancel = [COLOR=NAVY]True[/COLOR]
[B] Target.EntireRow.Interior.ColorIndex = xlNone
[/B] Target.Interior.ColorIndex = 3
Target.EntireRow.Range("J1").Value = Target.Value
[COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]