XL 2021 Problème double affichage calendrier de Patricktoulon

patricktoulon

XLDnaute Barbatruc

• 10 Décembre 2025

• #2

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Décembre 2025

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

Solution

cathodique

XLDnaute Barbatruc

• 10 Décembre 2025

• #4

Bonsoir,

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

Bonne soirée

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Décembre 2025

• #5

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

 

Vote positif 0 Vote négatif

jeff1494

XLDnaute Occasionnel

• 10 Décembre 2025

• #6

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

 

Vote positif 0 Vote négatif