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 : Sélectionner tout - Visualiser dans une fenêtre à part
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