XL 2021 Problème double affichage calendrier de Patricktoulon

[jeff1494]

Bonsoir à toutes et tous;
@patricktoulon :
Je rencontre un problème concernant l'affichage de ton calendrier.
Une fois le formulaire affiché par un clic droit j'affiche le calendrier. Mais en fait à la sélection de la date le calendrier s'affiche à nouveau.
Je dois certainement faire quelque chose de mal, mais je ne trouve pas quoi.
Je te joins un fichier simple pour que puisse y jeter un œil et me dire quelle est la bêtise que je fais.

Bonne soirée.

 

[patricktoulon]

mais qu'est ce que tu a fait encore toi hein
je vais regarder

 

[patricktoulon]

tu es dans un textbox dans un userform modal il est evident que l'events va se répéter quand on reviens sur le textbox
utilise le up

Private Sub Dat_Test_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        'MsgBox "Vous avez cliqué le bouton Droit."
        Dat_Test.Value = Calendar.ShowX(Dat_Test, 2, 0, 1)  ' Appel calendrier Patricktoulon
    End If
End Sub

 

[cathodique]

Bonsoir,

en utilisant bouton=1 pour clic gauche, ça fonctionne correctement.
Il y a un problème avec le clic-droit.

Bonne soirée

 

[patricktoulon]

Bonjour @cathodique
non il n' y a pas de problème c'est juste la perte et reprise de focus entre deux userforms modals donc un renvoie une reponse (le calendar)
setant donné que le calendar est lui même une classe et un userform simultanément
le up c'est le dernier events relevé dans la collection de message window en interne
quand tu utilise le down le up interviens apres car le textbox se met a jour
et une mise a jour sur un textbox declenche forcement son events
et c''est pareil pour tout les controls dans un userform

 

[jeff1494]

Bonsoir @patricktoulon ; Ben oui comme d'habitude j'ai fait une couillonnade, voire même une, caguade.
En tous cas je te remercie pour ta mansuétude à mon égard.
Bonne soirée à toi, et encore merci pour ton aide..