Userform par doubleclic ne s'ouvre plus

Bonjour à tous,

sur ce fichier en téléchargement je m'aperçois que le double clic sur les cellules d'absences d'un salariré (onglet mois) ne lance plus l'uf "absences2", alors qu'il reconnait bien les lignes et colonnes.

voici les 2 macros concernées :

en onglet mois :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
absences2.Show
End Sub

en uf absences2: en marron la ligne qui bug

La ligne qui n'a pas été rajoutée par moi et que je trouve bizarre pour ouvrir l'uf est :

Uf = "absences2".

Merci de votre aide.

Bonjour Fronck

1) Je n'ai pas de souci de mon côté, Absences2 s'ouvre bien

2) "Uf est une variable public de type String définie pour l'appel du calendrier

En revanche côté développement... outch ça pique les yeux

Et enlevez moi ce

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 Application.SendKeys "{Escape}"
End Sub

De votre Userform... punaise...

Et ajoutez "Cancel = True" dans

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  absences2.Show
End Sub

A+

Salut bruno,

Avec tes modifs çà fonctionne.

et escape, c'est pour éviter de bloquer le formulaire et l'ouverture du vba par le dbleclic du curseur. ?

Merci

Fronck,

Quand on a besoin de "Sendkeys", ce qui pour moi n'est pas le cas ici, il faut utiliser le Shell

CreateObject("WScript.Shell").SendKeys "{Escape}"

Sinon, tu auras systématiquement ton verrouillage numérique qui sautera

A+