XL 2010 Rajouter une procédure dans ce Code

vaucluse immo

XLDnaute Accro
Bonjour a tout le Forum
dans le code joint je voudrais ajouter une deuxième procédure pour ouvir le Calendrier dans la Colonne B:B en plus de la Colonne K:K

VB:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Select Case LCase(Sh.Name)
   Case "relevefactures": If Application.Intersect(Target, Range("K:K")) Is Nothing Then Exit Sub
   Case Else: Exit Sub
End Select
fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, date)
Cancel = True 'ceci évite l'édition de la cellule

End Sub

Merci a l'avance les amis
 

Jacky67

XLDnaute Barbatruc
Bonjour a tout le Forum
dans le code joint je voudrais ajouter une deuxième procédure pour ouvir le Calendrier dans la Colonne B:B en plus de la Colonne K:K

VB:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Select Case LCase(Sh.Name)
   Case "relevefactures": If Application.Intersect(Target, Range("K:K")) Is Nothing Then Exit Sub
   Case Else: Exit Sub
End Select
fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, date)
Cancel = True 'ceci évite l'édition de la cellule

End Sub

Merci a l'avance les amis
Bonjour,
Cette ligne
VB:
   Case "relevefactures": If Application.Intersect(Target, Range("b:b, k:k")) Is Nothing Then Exit Sub
 

Discussions similaires