erreur code macro

[gourdin]

Bonjour

Pourquoi ce petit code macro affiche un message de débogage à la ligne : Range("B4").Select ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B14")) Is Nothing Then
Sheets("feuil2").Select
Range("B4").Select
End If
End Sub

Merci

 

[Robert]

Re : erreur code macro

Bonjnour Gourdin, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B14")) Is Nothing Then
Sheets("feuil2").Select
[COLOR=black]ActiveSheet.Range("B4").Select[/COLOR]
End If
End Sub

 

[gourdin]

Re : erreur code macro

bonjnour gourdin, bonjour le forum,

essaie comme ça :

private sub worksheet_selectionchange(byval target as range)
if not intersect(target, range("b3:b14")) is nothing then
sheets("feuil2").select
[color=black]activesheet.range("b4").select[/color]
end if
end sub

merci beaucoup