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

 

[sylvanu]

Bonjour Shitoryu,
En PJ un calendar dev par PatrickToulon de ce site.
Un clic droit sur n'importe quelle cellule ouvre le calendrier.

 

[shitoryu]

super, merci !!
je viens de regarder la discussion sur ce tableau. J'ai trouvé le fichier joint avec le code suivant :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(Target, Range("C4:C18")) Is Nothing Then
Target = Calendar.ShowX(Target(1), 2, 0, 1)
End If
End Sub

Quand je la recopie ça plante dans mon fichier joint. cela m'indique "erreur de compilation - qualificateur incorrect". j'ai dû oublier une étape
merci à vous

 

[ChTi160]

Bonjour

tu n'as dans le Classeur 1 que ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Application.Intersect(Target, Range("B30:B100")) Is Nothing Then
        Target = Calendar.ShowX(Target(1), 2, 0, 1)
    End If
End Sub

il te faut aussi y mettre le Userform Calendrier (Calendar)et le module correspondant (Module 1) !
jean marie

 

[shitoryu]

Bonjour

tu n'as dans le Classeur 1 que ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Application.Intersect(Target, Range("B30:B100")) Is Nothing Then
        Target = Calendar.ShowX(Target(1), 2, 0, 1)
    End If
End Sub

il te faut aussi y mettre le Userform Calendrier (Calendar)et le module correspondant (Module 1) !
jean marie

 

[shitoryu]

je n'ai pas réussi à intégrer cela (mes connaissances s'améliorent mais pas suffisamment...).
j'ai réussi par contre à modifier le fichier d'origine pour répondre à mon besoin mais le tri ne se fait pas dans la colonne B.
encore un coup de main ?
merci à vous

 

[ChTi160]

Re
le tri de quoi ?
les dates dans ton fichier ne sont pas les une sous les autres , pourquoi ?

faut-il trier des qu'une date est rentrée dans la colonne "B"

jean marie

 

[shitoryu]

ok, ça marche. il ne faut pas de ligne vide évidemment.
Super, merci à vous

 

[ChTi160]

Re
un fichier ou j'ai inclus le tri !
jean marie

 

[patricktoulon]

Bonjour
toute mes créations en général s’intègrent dans n'importe quel fichier par un simple glisser/ déposer dans VBE
pour le calendrier(calendar) des exemples d’appels en tête de module calendar
tout est expliqué dans les commentaires en haut de module

et j'ai surtout mis la derniere version car la version 4.1 est loin d’être la dernière
pour info on est a la version 4.2.1 QIS
et pour le coup j'ai changé le thème pour être plus en adéquation avec le reste de la feuille
je l'ai fait sur le fichier de @ChTi160

 

[ChTi160]

Bonjour Patrick
Je n'ai fait que rajouter le tri de la colonne "B"
Sur le fichier que shitory a joint.
Je vais de mon côté regarder quelle version je possède.
Merci Patrick.
Jean marie

 

[patricktoulon]

re
Bonjour @ChTi160
il faut regarder dans l'historique

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal - Historique

www.excel-downloads.com

comme tu peux le voir mon suivi s’arrête a la V 4.1.6 toute les versions précédentes dont la "4.1" ne seront plus suivies ça me faisait trop de boulot a maintenir
la derniere version s'adapte a tout
les cellules, les textbox dans feuill/userform les label ,les shapes etc.....

 

[shitoryu]

avec la dernière version de patricktoulon cela m'indique "erreur d'exécution 6: dépassement de capacité".
un problème avec mon Excel ?
merci pour ce tableau !

 

[patricktoulon]

LOL 🙄
ca vient pas de mon calendar

 

[shitoryu]

une idée ?