Bonjour à tous,
J'ai un fichier où d'un clic droit j'ouvre un calendrier positionné par rapport à ma cellule active.
Depuis quelques jours, je constate quelque chose d'étrange, et je ne saurais dire si cela est depuis le début ou non.
Peut-être est-ce lié au numéro de la ligne et/ou la position de ma cellule dans la page.
Info au passage, je filtre sur + de 200 lignes et n'en affiche guère plus d'une dizaine en permanence.
Code au niveau du clic droit :
Code au niveau du userform :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 ' Menu Date If Not Intersect(Target, Range("k:k")) Is Nothing Then Cancel = True ActiveWorkbook.Save Calendrier.Show End If
Le code est toujours le même et pourtant, en fonction de je ne sais quel paramètre, mon calendrier n'est jamais au même endroit, voir hors écran. Il me faut alors faire Alt+F4 pour reprendre la main !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub UserForm_Initialize() With Me .Top = ActiveCell.Top + 10 .Left = ActiveCell.Left - 100 .MonthView1 = Date End With End Sub
Sa position .left semble toujours OK, la .top varie.
Please help.
Pierre
Partager