Microsoft 365 UserForm zoom affichage

[Usine à gaz]

Bonjour à toutes et à tous

J'ai un souci d'affichage de mon Calendrier (excellent calendrier de Roland_M).

Ouverture du classeur :
Nous devons garder une partie à droite de notre écran pour voir en permanence notre softphone (logiciel d'appels)
Le classeur s'ouvre donc sur une partie de l'écran selon le code ci-dessous :

Private Sub Workbook_Open()
Worksheets("Rappels de Pied Percé").Protect Password:="", UserInterfaceOnly:=True
    With ActiveWindow
    .WindowState = xlNormal
        Application.Left = 1
        Application.Top = 1
        Application.Width = 1000 'largeur 957
        Application.Height = 650 'hauteur
    End With

Application.MoveAfterReturn = True
Application.ScreenUpdating = False
Application.EnableEvents = False

If Application.CommandBars.Item("Ribbon").Height > 100 Then
 CreateObject("wscript.shell").SendKeys "^{F1}"
 End If
 Dim PauseTime, Start, Finish, TotalTime
     PauseTime = 1    ' Définit la durée.
     Start = Timer    ' Définit l'heure de début.
     Do While Timer < Start + PauseTime
         DoEvents    ' Donne le contrôle à d'autres processus.
     Loop
Sheets("Rappels de Pied Percé").Select
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.MoveAfterReturn = True
End Sub

........Affichage sur ma feuille........................Présentation dans l'UserForm

Je n'arrive pas à l'ouvrir comme affiché dans mon UserForm.
C'est certainement un souci de zoom à placer "quelque part" et je n'arrive pas à trouver;

Pourriez-vous m'aider ?
En cas, je joins un fichier test et je continue mes tentatives.
Un grand merci à tous,
lionel

 

[ChTi160]

Bonjour Lionel
en modifiant cette Procédure on arrive a faire évoluer la présentation .
à Voir !

'       ROUTINE STD ZOOM USERFORM                .
'adapte l'objet selon la résolution à la création.
Private Sub UserformZoomResolution(RxDeBase@) 'résolutionX d'origne
Dim RxActuel@, HBarUser%, RX@
'-- zoom userf selon résolution
RxActuel = FResolutionXpixel: HBarUser = FHautBarreUserfPoint '<fonction
If RxActuel <> RxDeBase Then
   If RxActuel > RxDeBase Then
      RX = RxActuel / RxDeBase: RX = 1 + ((RX - 1) * 0.2)
   Else
      RX = RxDeBase / RxActuel: RX = 1 - ((RX - 1) * 0.2)
   End If
   If RX > 4 Then RX = 4 'zoom maxi 400
   With Me
    .Zoom = 123 * RX 'Ici Mis 123 au lieu de 100
    .Width = .Width * RX
    .Height = (.Height - HBarUser) * RX + HBarUser
   End With
End If
End Sub

jean marie

 

[patricktoulon]

Bonjour lionel
ben j'ai cherché je n'ai pas trouvé
adresse toi directement au concepteur
je vois a un moment dans le code resolustion userform 1600 je ne sais pas ce qu'il en fait ensuite
tu veux à tout pris garder ce calendrier ?

 

[Usine à gaz]

Bonjour Jean-Marie
Bonjour Patrick
Merci pour vos retours : Jean-Marie, ça fonctionne, je te remercie

J'ai cherché une bonne partie de l'après midi et je viens de trouver :
Comme l'a vu aussi Jean-Marie, c'est cette partie là qu'ile me fallait modifier :

'       ROUTINE STD ZOOM USERFORM                .
'adapte l'objet selon la résolution à la création.
Private Sub UserformZoomResolution(RxDeBase@) 'résolutionX d'origne
Dim RxActuel@, HBarUser%, RX@
'-- zoom userf selon résolution
RxActuel = FResolutionXpixel: HBarUser = FHautBarreUserfPoint '<fonction
If RxActuel <> RxDeBase Then
   If RxActuel > RxDeBase Then
      RX = RxActuel / RxDeBase: RX = 1 + ((RX - 1) * 0.2)
   Else
      RX = RxDeBase / RxActuel: RX = 1 - ((RX - 1) * 0.2)
   End If
   If RX > 4 Then RX = 4 'zoom maxi 400
   With Me
    .Zoom = 126 * RX 'Zoom = 100 * RX
    '.Width = .Width * RX
    '.Height = (.Height - HBarUser) * RX + HBarUser
   End With
End If
End Sub

Je joins le fichier qui fonctionne.....
Merci encore à vous d'avoir été là

 

[ChTi160]

Re
Chez moi ton fichier ne fonctionne pas correctement ! Lol
Voir vidéo
Mais le principal c'est que ça fonctionne chez toi !
Jean marie

 

[Usine à gaz]

Re Jean-Marie
Faut peut-être adapter le ".Zoom = 126 * RX" ta résolution n'est peut-être pas 1600 ?

 

[Usine à gaz]

Bonjour lionel
ben j'ai cherché je n'ai pas trouvé
adresse toi directement au concepteur
je vois a un moment dans le code resolustion userform 1600 je ne sais pas ce qu'il en fait ensuite
tu veux à tout pris garder ce calendrier ?

Il y a des années que je l'utilise et il est également excellent (avec des fonctionnalités qui me sont propres) que Roland m'avait programmé.
Il va très bien pour moi et il a tellement travaillé que j'aurais l'impression de la trahir.

pour d'autres fichier, j'utilise le tien....

 

[ChTi160]

Re
Je sais Lol , puisque je t'ai mis le code qui marche chez Moi !
Jean marie