Champ de date déroulant

Bonjour

Ben! en fait tu ouvres le fichier que j'avais mis au post#5
Tu fais Alt + F11
Tu copies le code de la Feuil1 et tu la colles sur ton fichier à toi
Puis de-nouveau sur le fichier du post#5 tu fais un clic droit sur UFmCalend, exporter un fichier, puis tu choisis une destination que tu veux "exemple sur ton bureau"
Puis sur ton fichier à toi dans une partie blanche de VBAProjet, clic droit importer un fichier, puis tu recherches sur ton bureau le fichier UFmCalend.frm que tu as auparavant exporter et tu fais un double clic dessus. pour l'importer sur ton fichier à toi

Puis tu peux modifier sur cette partie du code ("E2") la cellule ou les cellules sur laquelle doit apparaitre le calendrier

If Not Application.Intersect(Target, Range("E2")) Is Nothing Then

Tu peux aussi changer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Par:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Ce qui permet de faire apparaître le calendrier dans ta cellule que par double clic

Et si jamais tu n'y arrives pas poste ton fichier anonymiser sur Cjoint

Slts