XL 2010 Rajouter une procédure dans ce Code

[MuscatMimi]

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

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]

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

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

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

 

[MuscatMimi]

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

 

[Jacky67]

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

RE..
Espace ou pas, cela ne devrait pas influencer le code

 

[MuscatMimi]

t'as raison je viens d'essayer,
alors je sais plus ce que j'avais fait,en tout cas merci