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

[Zekraoui_Jakani]

En principe, si vous sélectionnez les 3 feuilles simultanément (Ctrl + clic, ou VBA), tout ce que vous faites sur une feuille se répercute sur les feuilles sélectionnées; à tester !

[Kraster]

Bonjour,
Monsieur Zekraoui_Jakani, je vous remercie pour votre réponse. Ce que je veux : c'est exécuter la macro "Ajustement ()" automatiquement (sans avoir besoin d’activer chaque feuille) quand la taille (Largeur seulement, Hauteur ou les deux) de la fenêtre de l'application change.

[Zekraoui_Jakani]

J'ai bien compris. Voici un exemple que j'ai testé:

Code :

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

1
2
3
4
5
6
7
    Sheets(Array("Sheet7", "Sheet8", "Sheet9", "Sheet10")).Select  'je sélectionne 4 feuilles
    Sheets("Sheet8").Activate
    Range("X2").Select
    ActiveCell.FormulaR1C1 = "alpha"  ' j'ai écrit "alpha" dans X2 de la feuille8; la même chose eut lieu dans les autres feuilles sans que j'aie à les activer une par une
      'Vous pouvez très bien lancer votre macro ici, du moment que les 4 feuilles restent sélectionnées.
    Range("X3").Select
    Sheets("Sheet11").Select

[Kraster]

Bonjour, je peux utiliser la boucle For Each pour effectuer le changement directement sur les trois feuilles, mais il me faut un code pour exécuter la macro lorsque les dimensions de la fenêtre de l'application changent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Ajustement()
        Dim ws As Worksheet
        For Each ws In Worksheets
            If Application.UsableWidth > Columns("B:L").Width Then
                ws.Columns("A:A").ColumnWidth = (Application.UsableWidth - ws.Columns("B:L").Width) / 11
            End If
            If Application.UsableHeight > Rows("2:25").Height Then
                ws.Rows("1:1").RowHeight = (Application.UsableHeight - ws.Rows("2:25").Height) / 2
            End If
        Next ws
End Sub

[Zekraoui_Jakani]

Essayez ceci dans le module de chaque feuille:

Code :

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

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