Discussion :

[Walt51]

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

[joe.levrai]

Bonjour,

on dirait que le nom de ton Userform n'est pas le même que celui que tu as écris dans la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserFormRechercheRef

[Walt51]

Bonjour,
J'ai pourtant fais un "copier/coller" du nom que j'ai saisi dans la ligne (name) des propriétés du Userforme.
Aussi, je ne comprend pas car ça marchait bien jusqu'au moment où j'ai ajouté des lignes à ce code.
J'ai supprimé ces dernières lignes pour essayer de réparer, mais rien y fait.

[joe.levrai]

J'ai copié ton code dans un fichier vierge, et créer un Userform dont le Name est celui de ton code.

Au double clique sur B12 j'ai bien le userform qui s'affiche, ce qui valide la procédure que tu nous montres.

quand tu passes en mode pas à pas, Est-ce que la procédure passe dans le Initialize de ton Userform où il bloque avant d'y accéder ?
S'il passe dans l'Initialize (même la première ligne uniquement), montre le code qu'il y a dedans.

[Walt51]

Merci.
J'ai trouvé, effectivement le problème était bien dans le code contenu dans le Userform.
Merci pour du coup de main. J'étais persuadé que l'endroit surligné en jaune était là où se trouve l'erreur, en vérité elle peut être caché ailleur...Pas évident quand on débute.
Bonne continuation