XL 2010 calendrier automatique avec choix

[shitoryu]

Bonjour,
Je souhaiterais insérer un calendrier automatique pour toutes les cellules d'une même colonne. C'est le type de calendrier qui s'affiche quand on clique sur l'horloge de Windows et qui permet de choisir une date. C'est pour faire un agenda à l'année, il faudrait que les dates puissent ensuite se trier dans la colonne.

J'ai cherché sur le forum mais je n'ai pas trouvé, ce sujet existe peut-être déjà. J'ai vu ailleurs qu'il fallait installer un module complémentaire ?

en vous remerciant pour votre aide,
Bernard

 

[patricktoulon]

re
a ben des thèmes j'en ai fait quelques un pour les uns et autres
j'ai même du faire un creator pour ne plus avoir a re coder
comme ca on peut me demander n'importe quelle couleur dégradé ou pas j'ai qu'a cliquer pour creer ou choisir un thème déjà créé
si ça c'est pas du SAV je sais pas ce que c'est hein!!!!!
y a même un thème XLD

 

[shitoryu]

et bien...
pour le format date, quand je le modifie (lundi 28 juin 2021 il revient à chaque en format simplifié).
c'est automatisé dans le code ?

 

[patricktoulon]

?????????
tu parles de quoi là

 

[patricktoulon]

ah oui dans la cellule
ben c'est simple
dans la fonction ShowX du calendar
juste avant cette ligne ci dessous!!!!!!

        If TypeName(Obj) = "Range" Then Obj.NumberFormat = Forme: valeur = DateSerial(an, mois, jour) Else valeur = Format(DateSerial(an, mois, jour), Forme)

tu met cette ligne

If TypeOf objX Is Range Then If objX.NumberFormat <> Forme Then Forme = objX.NumberFormat

c'est pas compliqué
tu viens de me donner encore une option a mettre
j'avais enlevé la sauvegarde aussi de la valeur de cellule en cas d'annulation par la fermeture du userform par sa croix tu la re veux ?

 

[patricktoulon]

tiens le fichier avec la mise a jour tu es le premier a en bénéficier

1. retour de la sauvegarde du oldvalue en cas d'annulation
2. sauvegarde du format dans les cellules