XL 2016 Adaptation taille fichier excel

[Lucio]

Bonjour,
Qui pourrait m'aider? j'ai un fichier excel type formulaire (avec texte et case à cocher). Comme je travaille avec 2 écrans de taille différente, lorsque je passe d'un écran à l'autre le texte se décale sur les cases à cocher ou inversement.
Qui aurait une solution svp?

 

[TooFatBoy]

le texte ne se décale pas mais les cases à cocher oui

Merci d'avoir fait le test. 👍
Oui, évidemment le texte ne bouge pas puisqu'il est dans des cellules. J'ai dit là une bêtise... 😕 Ce sont bien sûr les cases à cocher qui bougent.

 

[Lucio]

les controls formulaire et activX et cellule ne sont pas dimensionnées de la même facon avec la même méthode dans excel
c'est pour ça que souvent on a des soucis avec la propriété "déplacer avec les cellules"

non je ne confond pas elles sont liées (malheureusement avec excel )

tiens kado pour tous

Function pointToPixel()
    With ActiveWindow
        .Zoom = 100
        pointToPixel = ((.ActivePane.PointsToScreenPixelsX(72) - .ActivePane.PointsToScreenPixelsX(0)) / 72)
    End With
End Function

Function largeur_Heading()
'combien mesure en largaeur la bande des numéros de ligne
    With ActiveWindow
        .Zoom = 100
        .ScrollColumn = 1
        largeur_Heading = ((.ActivePane.PointsToScreenPixelsX(0) / pointToPixel) - Application.Left) & " Points"
        'traduction
        'largeur_Heading= ((le point 0 left de la grille(ou [A1].left comme tu veux )!!!!a partir de  la gauche de l'ecran !!!! )et diviser par le coeef pixel to point   - le left de la fenetre application( a partir de la gauche de l'ecran
    End With
End Function
Function DPI()
' à combien est paramétré mon DPI
    With ActiveWindow
        .Zoom = 100
        Z = (.Zoom) / 100
        If Val(Z * 10) Mod 2 <> 0 Then ssupp = 0.1: Z = Z + ssupp
        DPI = (((.ActivePane.PointsToScreenPixelsY(72) - .ActivePane.PointsToScreenPixelsY(0)) / 72) / Z) * 72

    End With
End Function

Sub test4()
    Texte = Texte & "le coéfficient point to pixel sur mon pc est de " & pointToPixel & vbCrLf
    Texte = Texte & "avec un parametre DPI sur mon pc  de " & DPI & "<< soit 125% >>" & vbCrLf & vbCrLf
    Texte = Texte & "Donc!! " & pointToPixel & " divisé par 1.25 =" & pointToPixel / 1.25 & vbCrLf
    Texte = Texte & "qui est bien au coéff!! point to pixel en DPI 96 soit <<100%>>" & vbCrLf
   
    Texte = Texte & "la largeur de mon heading (numero de ligne) est de " & largeur_Heading
    MsgBox Texte
End Sub

voila comment est paramétré mon pc
Regarde la pièce jointe 1113258

Voila sur mon petit écran je suis bien dimensionné à 140% mais si je dézoom tout se décale. Pour la même échelle sur le petit écran je passe sur le grand écran et tout se décale avec le même zoom. j'y comprends plus rien

 

[patricktoulon]

d'accords dis moi un peu
quand tu dis que tu passe du petit au grand écran c'est en déplaçant la fenêtre c'est ça ?
si c'est ca c'est normal il te faut relancer la fonction a chaque fois que tu change d'ecran
c'est évident

 

[Lucio]

d'accords dis moi un peu
quand tu dis que tu passe du petit au grand écran c'est en déplaçant la fenêtre c'est ça ?
si c'est ca c'est normal il te faut relancer la fonction a chaque fois que tu change d'ecran
c'est évident

oui je déplace la fenêtre de mon pc sur un autre écran plus grand. De quelle fonction parles-tu?

 

[patricktoulon]

ben celle que je t'ai donné voyons

 

[patricktoulon]

tiens deplace ta fenetre d'ecran 1 à 2 reduit agrandi tout ce que tu veux
et a chaque fois que tu fait quelque chose sur cette fentre click sur le bouton ajust en haut
c'est pas compliqué

 

[patricktoulon]

et pour automatiser la chose
tu pourrais utilise l'event windowresize
dans le module thisworkbook tu ajoute ça

Private Sub Workbook_WindowResize(ByVal Wn As Window)
If ActiveSheet.Name = "permis travaux dangereux" Then zooming_columns Range("A:S")
End Sub

mais bon cet event je te le dis est un peu bancale mieux vaut avoir le bouton

 

[patricktoulon]

regarde quand je redim la fenêtre
c'est la seule possibilité que tu a a part le bouton
après pour automatiser il y a les apis windows postmessage en faisant un petit hook mais là çà devient une usine a gaz le truc

 

[Lucio]

oui je déplace la fenêtre de mon pc sur un autre écran plus grand. De quelle fonction parles-tu?

tiens deplace ta fenetre d'ecran 1 à 2 reduit agrandi tout ce que tu veux
et a chaque fois que tu fait quelque chose sur cette fentre click sur le bouton ajust en haut
c'est pas compliqué

Alors la à 133% je suis bien sur les 2 écrans. si j'ajuste sur le grand écran il me réduit à 94% et en basculan sur le petit écran et en ajustant je me retrouve à 133%. Quoi qu'il en soit je n'ai pas forcément besoin de l'ajustement mais ca peut toujours servir.
En tout cas merci énormément de ta patience et de ton aide. T'es vraiment un pro.

 

[patricktoulon]

Alors la à 133% je suis bien sur les 2 écrans. si j'ajuste sur le grand écran il me réduit à 94% et en basculan sur le petit écran et en ajustant je me retrouve à 133%. Quoi qu'il en soit je n'ai pas forcément besoin de l'ajustement mais ca peut toujours servir.
En tout cas merci énormément de ta patience et de ton aide. T'es vraiment un pro.

et en ajustant je me retrouve à 133%. Quoi qu'il en soit je n'ai pas forcément besoin de l'ajustement mais ca peut toujours servir.

ben si !!! justement

et oui c'est le but de la manœuvre
en utilisant le zoom du réduit ou augmente quasiment partout pareil avec le même prorata
donc les textes et boutons devrait être déplacé proportionnellement