XL 2010 Rajouter une procédure dans ce Code

vaucluse immo à dit:

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

Cliquez pour agrandir...

   Case "relevefactures": If Application.Intersect(Target, Range("b:b, k:k")) Is Nothing Then Exit Sub

vaucluse immo à dit:

Salut Jacky
a j'y étais presque , j'avais mis ("B:B,K:k")
mais pas d'espace après la virgule ,grand merci a toi bonne fin de journée

Cliquez pour agrandir...