Bonjour toutes et tous
Dans le même principe que Gmb merci à lui
tu vas dans le ThisWorkBook de ton classeur
SheetBeforeDoubleClick et tu y insères ce code
'Code dans Thisworkbook pour ouvrir l'userform1
'---------------------------------------------------
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
With ActiveSheet
If Application.Intersect(Target, Range("E10:E65000")) Is Nothing Then Exit Sub
' fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date)
UserForm1.Show
End With
End Sub
crdlt,
André