XL 2010 calendrier automatique avec choix

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Juin 2021

• #2

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

 

Pièces jointes

• calendar version 2019-2020 V.4.1.4 PatrickToulon.xlsm

  55.1 KB · Affichages: 35

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 26 Juin 2021

• #3

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

 

Pièces jointes

• contrôle nettoyage_Office _VH.xls

  198.5 KB · Affichages: 9
• Classeur1.xlsm

  12.2 KB · Affichages: 8

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 26 Juin 2021

• #4

Bonjour

tu n'as dans le Classeur 1 que ceci :

Code:

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

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 26 Juin 2021

• #5

ChTi160 à dit:

Bonjour

tu n'as dans le Classeur 1 que ceci :

Code:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 26 Juin 2021

• #6

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

 

Pièces jointes

• Calendrier des activités (2021-22).xls

  198.5 KB · Affichages: 7

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 26 Juin 2021

• #7

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

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 26 Juin 2021

• #8

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 26 Juin 2021

• #9

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

 

Pièces jointes

• Calendrier des activités (2021-22) Chti160.xlsm

  96.5 KB · Affichages: 16

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Juin 2021

• #10

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

 

Pièces jointes

• Calendrier des activités (2021-22) Chti160.xlsm

  109.5 KB · Affichages: 32

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 26 Juin 2021

• #11

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Juin 2021

• #12

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.....

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 26 Juin 2021

• #13

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 !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Juin 2021

• #14

LOL
ca vient pas de mon calendar

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 26 Juin 2021

• #15

une idée ?

 

Vote positif 0 Vote négatif