Calendrier

Bonjour à tous, je reviens à la chage avec mon fichier avec un probleme de calendrier.

En effet j'ai redimensionné ma userform (car je la trouvais trop petite) et depuis quand je clique sur une date ca marche 1 fois sur 100.

Etonnant pour excel !!! normalement ça marche ... ou pas du tout!!

Je joint mon fichier ce sera plus facile a comprendre.

La plage de cellule pour cette fonction est de A1:A10.

Si vous comprenez expliquez moi

https://www.cjoint.com/c/CEepus8CRae

Bonjour

Remplace dans le module de classe "Classe1" dans la macro "Private Sub bruno_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)"

cette ligne

If X > 8 Or Y > 8 Then bruno.BackColor = &H0&: Exit Sub

par celle-ci

If X > 25 Or Y > 25 Then bruno.BackColor = &H0&: Exit Sub

Remarque gratuite : Il y a les DTPickers

IMPECCABLE merci beaucoup !