Discussion :

[Kraster]

Bonjour les amis, je demande votre aide pour résoudre un problème de programmation !!

Le fichier « Test1 » contient 3 feuilles, chaque feuille contient un tableau (en rouge), la colonne A et la ligne 1 de chaque feuille changent respectivement la largeur et la hauteur pour garder les 3 tableaux aux centres des feuilles lorsque la taille de la fenêtre de l’application change. Ce changement de largeur et de hauteur se fait à l’activation de chaque feuille.

La question : comment automatiser cette opération ? : Ajuster automatiquement la Largeur de la colonne A et la hauteur de la ligne 1 sur les trois feuilles (en même temps, pour garder les tableaux aux centres) en fonction de la largeur et de la hauteur de la fenêtre de l’application sans avoir besoin d’activer chaque feuille.

Code de chaque feuille :

Code :

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

1
2
3
4
 
Private Sub Worksheet_Activate()
    Ajustement
End Sub

Code dans le module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Ajustement()
    Application.ScreenUpdating = False
    If Application.UsableWidth > Columns("B:L").Width Then
        Columns("A:A").ColumnWidth = (Application.UsableWidth - Columns("B:L").Width) / 11
    End If
    If Application.UsableHeight > Rows("2:25").Height Then
        Rows("1:1").RowHeight = (Application.UsableHeight - Rows("2:25").Height) / 2
    End If
    Application.ScreenUpdating = True
End Sub