Message "Variable objet ou variable de bloc With non définie"
Bonjour, je but sur un problème. Mon code se bloc depuis un certain temps sur la ligne 3 sans comprendre pourquoi.
J'ai le sentiment qu'il y a un problème de déclaration mais étant débutant je ne m'en sort pas.
Quelqu'un peut-il m'aider?
Merci.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([B10:B40], Target) Is Nothing And Target.Count = 1 Then
UserFormRechercheRef.Left = 200 + Target.Left
UserFormRechercheRef.Top = Target.Top - Cells(ActiveWindow.ScrollRow, 1).Top + 60
UserFormRechercheRef.Show
Cancel = True
End If
If Not Intersect([C10:C40], Target) Is Nothing And Target.Count = 1 Then
UserFormRechercheDés.Left = 200 + Target.Left
UserFormRechercheDés.Top = Target.Top - Cells(ActiveWindow.ScrollRow, 1).Top + 60
UserFormRechercheDés.Show
Cancel = True
End If
End Sub |