Autres toutes version excel tester le calendar en mode modal et non modal sur range ou control dans userform

Private Sub UserForm_Activate()
    Set Rng = [D5]
    Debug.Print Me.Height
    Hwnduf = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'handle fenetre active
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & Hwnduf & ", " & -20 & ", " & &H101C0090 & ")")
    'ExecuteExcel4Macro ("CALL(""user32"",""DrawMenuBar"",""JJ"", " & Hwnduf & ")")

    With ActiveWindow.ActivePane
        Z = ActiveWindow.Zoom / 100
        PtPx = (.PointsToScreenPixelsX(72) - .PointsToScreenPixelsX(0)) / 72    'coeff pixel
        If Not Rng Is Nothing Then x = .PointsToScreenPixelsX(Rng.Left): y = .PointsToScreenPixelsY(Rng.Top)
    End With
     With Me
        .Left = (x / PtPx * ActiveWindow.Zoom / 100) - 0.1'+ 3  'chez moi
        .Top = (y / PtPx * ActiveWindow.Zoom / 100)' + 3 'chez moi
    End With
Debug.Print Me.Height
End Sub

Public cel As Range
Public Function WindowXYFromPoint(x, y): WindowXYFromPoint = ExecuteExcel4Macro("CALL(""user32"",""WindowFromPoint"",""JJJ""," & x & ", " & y & ")"): End Function

Function placeOnRange(RNG As Range)
    Dim PtPx#, EcX&, Ecy&, BL#, BH#, q1$, q2$, Lh&, th&
    With ActiveWindow.ActivePane
        PtPx = (.PointsToScreenPixelsX(72) - .PointsToScreenPixelsX(0)) / 72    'coeff pixel
        If Not RNG Is Nothing Then x = .PointsToScreenPixelsX(RNG.Left): y = .PointsToScreenPixelsY(RNG.Top)
        Lh = .PointsToScreenPixelsX([A1].Left + 10)
        th = .PointsToScreenPixelsY([A1].Top + 10)
    End With
    h1.Value = WindowXYFromPoint(Lh, th)    'le handle sous un point precis  dans la cellule A1
    With Me
        .StartUpPosition = 0
        .Left = (x / PtPx * ActiveWindow.Zoom / 100)    ' + 50      ' je deregle la position exemple je le met à +50 de left
        .Top = (y / PtPx * ActiveWindow.Zoom / 100)    ' - 50    ' je deregle la position exemple je le met à -50 de top

    End With
    h2.Value = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'handle fenetre active


End Function
Private Sub UserForm_Activate()

   Set cel = [D5]
    placeOnRange cel
End Sub