Ajuster largeur colonnes en fonction de la résolution
1 réponse
prioux
Bonjour.
Je cherche un moyen,en VBA,d'ajuster la largeur de 4 colonnes en fonction
de la résolution de l'écran.
Ceci pour que ces 4 colonnes occupent tout l'écran (chacune 1/4).
Je récupère la résolution en pixels, mais après ???
D'avance merci.
For i = PremiereColonne To PremiereColonne + NombreDeColonnesVoulues - 1 Columns(i).ColumnWidth = Columns(PremiereColonne).ColumnWidth Next
Do Until ActiveWindow.VisibleRange.Columns.Count < NombreDeColonnesVoulues + 1 For i = PremiereColonne To PremiereColonne + NombreDeColonnesVoulues - 1 Columns(i).ColumnWidth = Columns(i).ColumnWidth + IncrementMinimal If ActiveWindow.VisibleRange.Columns.Count < NombreDeColonnesVoulues + 1 Then Exit For Next Loop
End Sub
wrote in message news:
Bonjour. Je cherche un moyen,en VBA,d'ajuster la largeur de 4 colonnes en fonction de la résolution de l'écran. Ceci pour que ces 4 colonnes occupent tout l'écran (chacune 1/4). Je récupère la résolution en pixels, mais après ??? D'avance merci.
For i = PremiereColonne To PremiereColonne + NombreDeColonnesVoulues - 1
Columns(i).ColumnWidth = Columns(PremiereColonne).ColumnWidth
Next
Do Until ActiveWindow.VisibleRange.Columns.Count < NombreDeColonnesVoulues +
1
For i = PremiereColonne To PremiereColonne +
NombreDeColonnesVoulues - 1
Columns(i).ColumnWidth = Columns(i).ColumnWidth +
IncrementMinimal
If ActiveWindow.VisibleRange.Columns.Count <
NombreDeColonnesVoulues + 1 Then Exit For
Next
Loop
End Sub
<prioux@ensma.fr> wrote in message
news:2fc36a11.0405170614.6ad2964@posting.google.com...
Bonjour.
Je cherche un moyen,en VBA,d'ajuster la largeur de 4 colonnes en fonction
de la résolution de l'écran.
Ceci pour que ces 4 colonnes occupent tout l'écran (chacune 1/4).
Je récupère la résolution en pixels, mais après ???
D'avance merci.
For i = PremiereColonne To PremiereColonne + NombreDeColonnesVoulues - 1 Columns(i).ColumnWidth = Columns(PremiereColonne).ColumnWidth Next
Do Until ActiveWindow.VisibleRange.Columns.Count < NombreDeColonnesVoulues + 1 For i = PremiereColonne To PremiereColonne + NombreDeColonnesVoulues - 1 Columns(i).ColumnWidth = Columns(i).ColumnWidth + IncrementMinimal If ActiveWindow.VisibleRange.Columns.Count < NombreDeColonnesVoulues + 1 Then Exit For Next Loop
End Sub
wrote in message news:
Bonjour. Je cherche un moyen,en VBA,d'ajuster la largeur de 4 colonnes en fonction de la résolution de l'écran. Ceci pour que ces 4 colonnes occupent tout l'écran (chacune 1/4). Je récupère la résolution en pixels, mais après ??? D'avance merci.