bug avec excellent calendrier de Roland_M

[grisan29]

bonjour a tous et toutes

j'ai un bug avec l'excellent calendrier de Roland_M que j’essaie d'adapter pour 4 label mais comme j'ai un bug, j'ai regarder dans celui de Roland_M et j'ai le même bug
il y a une erreur de compilation au dernier .caption de la 2/3,
l'excellent calendrier ce trouve dans le post ci dessous

https://www.excel-downloads.com/threads/date-picker-refuse-de-fonctionner.130232/
peu importe la caption le bug se déclenche

'(2/3) CODES d'appel pour dates indépendantes. vous pouvez ajouter/supprimer en respectant ce principe!
Private Sub DTPDate1_Click(): fmSTD_Calendrier.SelectDateCalendrierCTRL Me, DTPDate1.Caption: End Sub
Private Sub DTPDate2_Click(): fmSTD_Calendrier.SelectDateCalendrierCTRL Me, DTPDate2.Caption: End Sub
Private Sub DTPDate3_Click(): fmSTD_Calendrier.SelectDateCalendrierCTRL Me, DTPDate3.Caption: End Sub
Private Sub DTPDate4_Click(): fmSTD_Calendrier.SelectDateCalendrierCTRL Me, DTPDate4.Caption: End Sub

mais pour mieux voir si j'ai oublier quelque chose je joint le classeur test
peut être que le post datant un peu il n'est pas compatible avec windows10 64bits et office2013 32 bits

 

[Roland_M]

Re : bug avec excellent calendrier de Roland_M

bonjour,

tu tombes bien ! je vais regardé voir où est ton problème !?
si question je reviens vers toi !

 

[grisan29]

Re : bug avec excellent calendrier de Roland_M

bonjour Roland_M

merci ca vas je ne me suis pas blessé en tombant
a plus tard

 

[Roland_M]

Re : bug avec excellent calendrier de Roland_M

re

effectivement il y a erreur de ma part je m'en vais rectifier cela immédiatement !
ICI:
'(2/3) CODES d'appel pour dates indépendantes. vous pouvez ajouter/supprimer en respectant ce principe!
Private Sub DTPDate1_Click(): fmSTD_Calendrier.SelectDateCalendrierCTRL Me, DTPDate1: End Sub
Private Sub DTPDate2_Click(): fmSTD_Calendrier.SelectDateCalendrierCTRL Me, DTPDate2: End Sub
Private Sub DTPDate3_Click(): fmSTD_Calendrier.SelectDateCalendrierCTRL Me, DTPDate3: End Sub
Private Sub DTPDate4_Click(): fmSTD_Calendrier.SelectDateCalendrierCTRL Me, DTPDate4: End Sub

tu supprimes au bout .Caption !
car en fait on passe un control et non pas une valeur !
au moins ça m'aura servi à qq chose ! merci !

 

[grisan29]

Re : bug avec excellent calendrier de Roland_M

bonjour Roland_M

c'est cela la solution et ben, ca rajoute une couche de plus sur la qualité de ton calendrier autonome
merci a toi et bon dimanche