Bonjour
J'ai écri un programme avec un écran formaté en 1024x768 , comme je sais que
des utilisateurs ont des écran 800x600 , j'ai une macros d'ouverture qui fait
:
Application.Goto Reference:="titre1"
ActiveWindow.Zoom = True
J'ai formaté mes InputBox de la manière suivante,afin d'obtenir la fenêtre
en haut et à droite :
ActiveCell.Value = InputBox(" ", "1ERE SERIE DE PIECES", , 9500, 2000)
Bien que je vois exactement les mêmes colonnes grace à ma macro d'ouverture
, mon InputBox n'est plus en haut et à gauche et pire est trop à droite avec
un écran 800x600
y-at-il une solution à ce problème
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PMO
Bonjour,
Une piste empirique avec le code ci-dessous:
'************************* Option Explicit Sub aa() Dim ScreenWidth# Dim coeff! Dim tempo With Application .WindowState = xlMaximized ScreenWidth# = .Width End With coeff! = 12 If ScreenWidth# < 800 Then coeff! = 10.5 tempo = InputBox(" ", "1ERE SERIE DE PIECES", , _ ScreenWidth# * coeff!, _ 2000) End Sub '**********************
On pourrait être plus précis en utilisant des API mais c'est un tel foutoir à s'y retrouver entre les DPI, les twips, les pixels que je ne m'y suis pas aventuré. En tout cas, le code ci-dessus, testé chez moi semble satisfaisant. Espérons qu'il en soit de même chez vous.
Cordialement.
PMO Patrick Morange
Bonjour J'ai écri un programme avec un écran formaté en 1024x768 , comme je sais que des utilisateurs ont des écran 800x600 , j'ai une macros d'ouverture qui fait : Application.Goto Reference:="titre1" ActiveWindow.Zoom = True
J'ai formaté mes InputBox de la manière suivante,afin d'obtenir la fenêtre en haut et à droite : ActiveCell.Value = InputBox(" ", "1ERE SERIE DE PIECES", , 9500, 2000) Bien que je vois exactement les mêmes colonnes grace à ma macro d'ouverture , mon InputBox n'est plus en haut et à gauche et pire est trop à droite avec un écran 800x600 y-at-il une solution à ce problème
Merci encore pour toutes vos réponses bien utiles
Bonjour,
Une piste empirique avec le code ci-dessous:
'*************************
Option Explicit
Sub aa()
Dim ScreenWidth#
Dim coeff!
Dim tempo
With Application
.WindowState = xlMaximized
ScreenWidth# = .Width
End With
coeff! = 12
If ScreenWidth# < 800 Then coeff! = 10.5
tempo = InputBox(" ", "1ERE SERIE DE PIECES", , _
ScreenWidth# * coeff!, _
2000)
End Sub
'**********************
On pourrait être plus précis en utilisant des API mais c'est un tel foutoir
à s'y retrouver entre les DPI, les twips, les pixels que je ne m'y suis
pas aventuré.
En tout cas, le code ci-dessus, testé chez moi semble satisfaisant.
Espérons qu'il en soit de même chez vous.
Cordialement.
PMO
Patrick Morange
Bonjour
J'ai écri un programme avec un écran formaté en 1024x768 , comme je sais que
des utilisateurs ont des écran 800x600 , j'ai une macros d'ouverture qui fait
:
Application.Goto Reference:="titre1"
ActiveWindow.Zoom = True
J'ai formaté mes InputBox de la manière suivante,afin d'obtenir la fenêtre
en haut et à droite :
ActiveCell.Value = InputBox(" ", "1ERE SERIE DE PIECES", , 9500, 2000)
Bien que je vois exactement les mêmes colonnes grace à ma macro d'ouverture
, mon InputBox n'est plus en haut et à gauche et pire est trop à droite avec
un écran 800x600
y-at-il une solution à ce problème
'************************* Option Explicit Sub aa() Dim ScreenWidth# Dim coeff! Dim tempo With Application .WindowState = xlMaximized ScreenWidth# = .Width End With coeff! = 12 If ScreenWidth# < 800 Then coeff! = 10.5 tempo = InputBox(" ", "1ERE SERIE DE PIECES", , _ ScreenWidth# * coeff!, _ 2000) End Sub '**********************
On pourrait être plus précis en utilisant des API mais c'est un tel foutoir à s'y retrouver entre les DPI, les twips, les pixels que je ne m'y suis pas aventuré. En tout cas, le code ci-dessus, testé chez moi semble satisfaisant. Espérons qu'il en soit de même chez vous.
Cordialement.
PMO Patrick Morange
Bonjour J'ai écri un programme avec un écran formaté en 1024x768 , comme je sais que des utilisateurs ont des écran 800x600 , j'ai une macros d'ouverture qui fait : Application.Goto Reference:="titre1" ActiveWindow.Zoom = True
J'ai formaté mes InputBox de la manière suivante,afin d'obtenir la fenêtre en haut et à droite : ActiveCell.Value = InputBox(" ", "1ERE SERIE DE PIECES", , 9500, 2000) Bien que je vois exactement les mêmes colonnes grace à ma macro d'ouverture , mon InputBox n'est plus en haut et à gauche et pire est trop à droite avec un écran 800x600 y-at-il une solution à ce problème
