Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
 
hauteur = Application.UsableHeight
largeur = Application.UsableWidth
 
 
            Columns("A:A").Select
            Selection.Insert Shift:=xlToRight
            Selection.ColumnWidth = 0.1 * largeur
Voici un petit bout de code qui me pose problème.
En fait je voudrais adapter mon affichage en fonction de la taille de l'écran. Je ne veux pas scroller pour voir une partie non affichée comme avoir une partie inutilisée en terme d'affichage.



Lorsque j'effectue ce petit test, largeur prend la valeur 1152.
Si je veux que la colonne A prenne 10% ( en largeur ) de l'écran j'ai écrit 0.1 * largeur ce qui me donne un résultat de 115.2
or, le souci est : Si on veut une seule colonne en affichage sur mon écran, la taille doit-être de 219 alors avec ce calcul, mes 10% représentent plus de la moitié de l'écran........

J'ai bien pensé à utiliser le produit en croix......... c'est à dire :

Selection.ColumnWidth = 219*115,2/1152 ce qui revient à 219*0.1 pour 10%

219 -----> 1152
xxx -----> 115,2

mais il y a toujours un problème........
Soit la dernière colonne n'est pas entière ( et des fois il en manque beaucoup ) soit il y a une colonne ( ou morceau de colonne ) après cette dernière colonne que je veux afficher.


Voilà. C'est assez compliqué d'expliquer mon problème.
J'espère que vous m'aurez compris afin de trouver de l'aide parmi vous.


Merci d'avance.


Novice72