XL 2016 Liste déroulante date longue de la semaine

Scorpio

XLDnaute Impliqué
Bonjour à vous tous,
Comment modifier ce code VBA pour que les dates s'affichent dans ma liste déroulante en format long ??

Merci et à plus
 

Pièces jointes

  • Classeur1.xlsm
    15.3 KB · Affichages: 44

vgendron

XLDnaute Barbatruc
en fait, dans l'exemple que je me suis fait, j'avais désactivé ta macro.
voir PJ avec une zone nommée définie en statique et une zone nommée en Dynamique
Stttique = si tu ajoutes des dates, elles ne seront pas prises en compte par la liste
Dynamique: la zone s'adapte automatiquement en fonction du nb de date dans la colonne (ouvrir Gestionnaire de noms pour en voir les définitions)

ta cellule qui contient la liste de validation doit etre au format date
 

Pièces jointes

  • Classeur1 (1).xlsm
    10.3 KB · Affichages: 45

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

Un autre essai:
Le code est en grande partie dans le module de Feuil1:

Public Sub ListeValidation -> construit la liste de validation et vérifie que la date dans C2 fait partie de la liste de validation (si absent, C2 est mis à blanc)
Sub Worksheet_Activate -> reconstruit la liste de validation
Private Sub Worksheet_Change -> convertit la date choisie dans la liste de validation du type texte en type date

Dans le module de Thisorkbook:
Private Sub Workbook_Open -> reconstruit la liste de validation même si à l'ouverture du classeur la feuille Feuil1 est déjà activée

Edit : le code est à modifier puisqu'il est précisé dans un post qu'on veut les dates de la semaine ce qui dans la macro du premier fichier n'était pas évident à deviner...


 

Pièces jointes

  • Scorpio- Liste Validation- v1.xlsm
    19.7 KB · Affichages: 28

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 196
Messages
2 086 100
Membres
103 116
dernier inscrit
kutobi87