Discussion :

[ANOVA]

Bonjour,

j'aimerais récupérer la largeur de l'écran où s'affiche ma feuille Excel. L'idée serait de pouvoir adapter la largeur des colonnes de façon à ce que leur taille s'ajuste à la taille de chaque fenêtre et de chaque écran.

Je précise que ce n'est pas exactement la taille de l'écran que je souhaite, mais bien la taille de la partie de l'écran où s'affiche ma feuille. Autrement dit, si on redimensionne la fenêtre ou qu'on supprimer les titres des lignes, cette taille change...

Pour être tout à fait clair dans mes explications ne vous joins un image. La largeur que je veux, c'est celle qu'il y a entre les deux points rouges.

Je vous remercie.

[babaothe]

salut

l'objet application a une propriété Width

donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.width

est ce que tu parais chercher

[ANOVA]

Non justement. Je connaissais ce truc, mais cela doit donner la largeur de toute la fenêtre et non la largeur entre les deux points rouges de l'image que j'ai mise dans mon premier message.

Ces deux Sub renvoie le même résultat (1212 pour moi) alors que dans la deuxième, je supprime les titres des lignes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub toto()
    ActiveWindow.DisplayHeadings = True
    MsgBox Application.Width
End Sub
 
Sub toto2()
    ActiveWindow.DisplayHeadings = False
    MsgBox Application.Width
End Sub

Je te remercie quand même de ton aide.

[babaothe]

enlève 34 ( = (2 *15) + (1*4) ) pixels lorsque DisplayHeadings = True