XL 2013 le calendrier de Patrick Toulon

[JPaul78]

Bonjour à tous,
Je créer une discussion car je ne sais pas comment envoyer une note à Patrick Toulon, mais peut-être que d'autres auront une idée pour contourner l'obstacle!
J'utilise depuis plusieurs mois le calendrier de Patrick que je trouve super d'utilisation et de mise en place.
Je rencontre néanmoins un petit soucis sur le choix de l'année. Comme le l'utilise en autre à la saisie de date de naissance, mes utilisateurs peuvent être amener à saisir une date de "vieux": 19 et quelques poussières. Pour cela les liste déroulantes ou spinbouton fonctionnent bien mais peuvent être longues. lorsque l'on doubleclic sur l'année et que l'on saisisse l'année voulue cela fonctionne bien. Par contre, lorsque l'on utilise la touche "retour arrière", dès que l'on arrive sur le 1ier chiffre, alors une erreurs "incompatibilité de type" sur "SpinButton2.Value = Cbyear.Value" dans le module "Cbyear_Change". J'ai tenté quelques approches mais avec succès mitigé.
Voici le meilleur traitement que j'ai trouvé, mais il y peut-être une solution plus élégante...
Private Sub Cbyear_Change()
Censuré a la demande de Patrick Toulon

Merci de vos avis éclairés

 

[patricktoulon]

re
voilà qui devrait calmer les ardeurs des petits nains
et faire plaisir à @JPaul78 et @Marcel32 on peut vider la combo sans plantage
va y maintenant @ALS35 tape tes touches à l'ouverture
comme je le clame haut et fort un bon développeur va chercher a résoudre le problème et non l’inhiber comme fait @JPaul78 en ferment brutalement le calendrier sans avertissement à l'utilisateur

 

[Usine à gaz]

re
voilà qui devrait calmer les ardeurs des petits nains
et faire plaisir à @JPaul78 et @Marcel32 on peut vider la combo sans plantage
va y maintenant @ALS35 tape tes touches à l'ouverture
comme je le clame haut et fort un bon développeur va chercher a résoudre le problème et non l’inhiber comme fait @JPaul78 en ferment brutalement le calendrier sans avertissement à l'utilisateur

NON MAIS ALORS !!! lol

 

[TooFatBoy]

comme je le clame haut et fort un bon développeur va chercher a résoudre le problème et non l’inhiber comme fait @JPaul78 en ferment brutalement le calendrier sans avertissement à l'utilisateur

C'est vrai que tu l'as dit plein de fois ici, mais perso je ne comprends toujours pas ce que tu veux dire par là...

 

[ALS35]

Re,

@patricktoulon
Bah non, si tu ouvres le calendrier et sans rien faire d'autre qu'un appui sur une touche numérique (de l'ordinateur), ça plante toujours.
Un bon développeur doit savoir qu'un mauvais utilisateur fera nécessairement toutes les bêtises possibles et imaginables.

Cordialement

 

[TooFatBoy]

voilà qui devrait calmer les ardeurs des petits nains
et faire plaisir à @JPaul78 et @Marcel32 on peut vider la combo sans plantage

On pouvait déjà le faire avec ta version précédente.

Il y a toujours des plantages, mais c'est vrai que c'est mieux qu'à l'ouverture de ce fil de discussion.
Comme quoi, quand tu veux bien écouter les testeurs qui rencontrent des problèmes, ça donne quelque chose de plus fonctionnel.

Tu as bien bossé.

 

[TooFatBoy]

Bah non, si tu ouvres le calendrier et sans rien faire d'autre qu'un appui sur une touche numérique (de l'ordinateur), ça plante toujours.

Chez moi ça ne plante plus (enfin... ça dépend de la touche appuyée).

Un bon développeur doit savoir qu'un mauvais utilisateur fera nécessairement toutes les bêtises possibles et imaginables.

C'est hélas tellement vrai !

 

[patricktoulon]

C'est vrai que tu l'as dit plein de fois ici, mais perso je ne comprends toujours pas ce que tu veux dire par là...

bonjour @Marcel32
ben c'est simple @JPaul78 ferme le calendrier brutalement par la gestion d'erreur
moi je considère que ca n'est pas une solution
on ferme pas un interface parce que l'on c'est trompé mais on gère l'erreur

@ALS35 il faudra me dire comment tu fait
le code de l'event parle de lui meme

Private Sub Cbyear_Change()
    If sortieEsc Then Calendar.valeur = oldvalue: Me.Hide: Exit Sub
    If Cbyear <> "" Then If Not IsNumeric(Cbyear.Value) Then Cbyear = "": Exit Sub
    If Val(Cbyear) < SpinButton2.Min And Cbyear.Value <> "" Then
        MsgBox "veuillez saisir une année valide de 1900 à " & Year(Date) + 100
    Else
        If Cbyear <> "" Then SpinButton2.Value = Cbyear.Value: Calendar.ReloadClavier
    End If
End Sub

alors si toi malgré ça tu arrive a taper autre chose que de 1900 à 2122 il faut m'expliquer comment
il n'y a aucune raison que ca fonctionne différemment chez vous

 

[Staple1600]

Re

il n'y a aucune raison que ca fonctionne différemment chez vous

Et quelle est la raison qui fasse que patrictoulon confonde Dranreb et Staple1600 ?
Car il n'y aucun raison que cette méprisé se produise chez vous
OK je sors
(voir ma 1er intervention dans ce fil pour comprendre de quoi je parle)

 

[TooFatBoy]

ben c'est simple @JPaul78 ferme le calendrier brutalement par la gestion d'erreur
moi je considère que ca n'est pas une solution
on ferme pas un interface parce que l'on c'est trompé mais on gère l'erreur

Oui, me suis mal exprimé : je t'avais bien compris, mais ce que je ne comprends pas c'est pourquoi tu dis qu'il ferme le calendrier brutalement.
Chez moi il n'y a aucune fermeture du calendrier (ni douce, ni brutale ).

Je ne sais pas ce que fait exactement sa modification, mais du point de vu de l'utilisateur il n'y a aucun problème de fermeture non demandée du calendrier.

 

[JPaul78]

Tout d'abord merci @patricktoulon pour sa proposition.
Par contre, je dois avoir le mauvais œil car chez moi cela ne fonctionne plus quoique je fasse j'obtiens un message d'erreur me demande de choisir une date entre 1900 et 2122... voir la PJ

 

[JPaul78]

Oui, me suis mal exprimé : je t'avais bien compris, mais ce que je ne comprends pas c'est pourquoi tu dis qu'il ferme le calendrier brutalement.
Chez moi il n'y a aucune fermeture du calendrier (ni douce, ni brutale ).

Je ne sais pas ce que fait exactement sa modification, mais du point de vu de l'utilisateur il n'y a aucun problème de fermeture non demandée du calendrier.

je confirme que cela se fait tout en douceur le calendrier ne se ferme pas sauf si tu clique sur la croix ou sur la touche escape. Mais je reconnais volontiers que ce n'est certainement pas la manière la plus élégante d'où ce post.

 

[TooFatBoy]

on ferme pas un interface parce que l'on c'est trompé mais on gère l'erreur

Si l'interface se fermait (ce qui n'est pas le cas chez moi ), ce serait toujours mieux qu'un plantage, comme par exemple quand il y a 2022 dans le champ de l'année et qu'on saisie un chiffre supplémentaire.
N'est-ce pas...

Je sais je me répète mais il faut revoir tes protocoles de test camarade, car comme l'a dit un grand sage : "Un bon développeur doit savoir qu'un mauvais utilisateur fera nécessairement toutes les bêtises possibles et imaginables.".

 

[Staple1600]

Re, les afficionados de Chronos

Puisque VBA cause la langue de d'E. Murphy, citons alors sa loi qui est plus courte à écrire que ce que jadis le Grand Sagace a dit.

"Anything that can go wrong will go wrong."

 

[patricktoulon]

Si l'interface se fermait (ce qui n'est pas le cas chez moi ), ce serait toujours mieux qu'un plantage, comme par exemple quand il y a 2022 dans le champ de l'année et qu'on saisie un chiffre supplémentaire.
N'est-ce pas...

Je sais je me répète mais il faut revoir tes protocoles de test camarade, car comme l'a dit un grand sage : "Un bon développeur doit savoir qu'un mauvais utilisateur fera nécessairement toutes les bêtises possibles et imaginables.".

bon allez

Private Sub Cbyear_Change()
    If sortieEsc Then Calendar.valeur = oldvalue: Me.Hide: Exit Sub
    If Cbyear <> "" Then If Not IsNumeric(Cbyear.Value) Then Cbyear = "": Exit Sub
    If Val(Cbyear) > SpinButton2.Max Then Cbyear = SpinButton2.Max
    If Val(Cbyear) < SpinButton2.Min And Cbyear.Value <> "" Then
        MsgBox "veuillez saisir une année valide de 1900 à " & Year(Date) + 100
    Else
        If Cbyear <> "" Then SpinButton2.Value = Cbyear.Value: Calendar.ReloadClavier
    End If
End Sub

comme ça tout le monde est content

 

[TooFatBoy]

comme ça tout le monde est content

Effectivement, c'est mieux.