Bonjour à tous,
Je reviens vers vous aujourd'hui avec la question suivante.
J'ai trouver un code qui va permettre d'afficher un calendrier en double cliquant sur une ou des cellules définies et d'y saisir une date. J'ai réussi à intégrer ce code dans mon classeur et sur la feuille 1 (facture). Malheureusement quand je créé une nouvelle feuille je ne retrouve plus cette fonction. Je pense qu'il faut modifier une partie du code mais laquelle ...
Voici le code
'Code dans Thisworkbook pour saisie date sur cellule
'---------------------------------------------------
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Select Case LCase(Sh.Name)
Case "facture": If Application.Intersect(Target, Range("F3", "D50")) 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
Que dois je modifier ?
Merci d'avance
Je reviens vers vous aujourd'hui avec la question suivante.
J'ai trouver un code qui va permettre d'afficher un calendrier en double cliquant sur une ou des cellules définies et d'y saisir une date. J'ai réussi à intégrer ce code dans mon classeur et sur la feuille 1 (facture). Malheureusement quand je créé une nouvelle feuille je ne retrouve plus cette fonction. Je pense qu'il faut modifier une partie du code mais laquelle ...
Voici le code
'Code dans Thisworkbook pour saisie date sur cellule
'---------------------------------------------------
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Select Case LCase(Sh.Name)
Case "facture": If Application.Intersect(Target, Range("F3", "D50")) 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
Que dois je modifier ?
Merci d'avance