Controle-calendrier

Bonjour,38

Je viens de tomber sur un travail de FANFAN38 concernant l’utilisation d'un calendrier dans une page Excel. Un bon travail d'ailleurs!!

https://forum.excel-pratique.com/excel/controle-calendrier-11-0-excel-2003-179504

Est-il possible de limiter un nombre de ligne active, modifiable suivant l'augmentation de donnée dans cette feuille, de la ligne 4 à la ligne 57 pour commencer?

Un petit fichier joint et merci à vous!!

Bon dimanche.

Bonjour

Dans la macro de la feuille3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next ' en cas de sélection complète de la feuille
    If Target.Column <> 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
if target.row>50 then exit sub 'ceyye ligne limite à 50 lignes la saisie d'une date
    affichercalendrier
End Sub

A+ François

Ou mieux

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next ' en cas de sélection complète de la feuille
    If Target.Column <> 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A4:A57")) Is Nothing Then affichercalendrier
End Sub

La ligne avant le "End sub" autorise la saisie d'une date que dans les cellules A4 à A57

A+ François

Bonjour François,

merci pour ton boulot, c'est nickel!

J'ai rajouté une ligne pour limiter la saisie à partir de la quatrième ligne:

If Target.Row < 4 Then Exit Sub 

Et ça marche aussi!!

Encore merci et A+

PS: désolé, je n'avais pas vu ton deuxième message avant de modifier moi-même