XL 2013 le calendrier de Patrick Toulon

JPaul78 · 14 Mars 2022

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 · 19 Mars 2022

autant pour moi un petit oubli dans la gestion du bouton(1 à 42) click
en fait dans cet event on est dans une instance de classe calendar donc il faut prefixer cbyear par son parent
car avec certaines versions d'excel(je n'ai pas encore trouvé pourquoi) le "Me" ou rien suffit tandis qu'avec d'autre version il faut préfixer (et pas par me)
donc voila un truc tout bête

'evenement unique pour 42 boutons
Private Sub bout_Click()
If Calendar.Cbyear = "" Then MsgBox "l'année n'a pas été selectionnée!!" & vbCrLf & "veuillez saisir une année valide de 1900 à " & Year(Date) + 100: Exit Sub
With Calendar: .jour = Bout.Caption: .mois = .Cbmonth.ListIndex + 1: .an = .Cbyear.Value: .Hide: End With 'le...

patricktoulon · 18 Mars 2022

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 · 18 Mars 2022

patricktoulon à dit:
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 · 18 Mars 2022

patricktoulon à dit:
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 · 18 Mars 2022

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 · 18 Mars 2022

patricktoulon à dit:
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 · 18 Mars 2022

ALS35 à dit:
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).

ALS35 à dit:
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 · 18 Mars 2022

Marcel32 à dit:
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

VB:

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 · 18 Mars 2022

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 · 18 Mars 2022

patricktoulon à dit:
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 · 18 Mars 2022

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 · 18 Mars 2022

Marcel32 à dit:
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 · 18 Mars 2022

patricktoulon à dit:
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 · 18 Mars 2022

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 · 18 Mars 2022

Marcel32 à dit:
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

VB:

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 · 18 Mars 2022

patricktoulon à dit:
comme ça tout le monde est content

Effectivement, c'est mieux.

XL 2013 le calendrier de Patrick Toulon

JPaul78

XLDnaute Junior

patricktoulon

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

ALS35

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

JPaul78

XLDnaute Junior

Pièces jointes

JPaul78

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Discussions similaires