Figer (bloquer) largeur et hauteur des cellules Résolu/Fermé

Question

Bonjour;
j'ai créer cette macro pour figer les cellules dans un tableau excel

Sub Revue()

Sheet1.Activate
Columns("a:a").ColumnWidth = 2
Columns("b:b").ColumnWidth = 19
Columns("c:o").ColumnWidth = 11


End Sub

mais le problème, c'est que l’utilisateur peut modifier la largeur de la colonne si le souhaite

svp comment faire pour bloquer les colonnes au dimension que je désire

merci

cs_Le Pivert · Answer

Bonjour,

Tout simplement mettre ceci dans la feuille concernée:


Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("a:a").ColumnWidth = 2
Columns("b:b").ColumnWidth = 19
Columns("c:o").ColumnWidth = 11
End Sub


Avec ce code il pourra changer la taille des colonnes, mais dès la nouvelle sélection elles reprendront leurs dimensions

cs_Le Pivert · Answer

il faut le mettre dans chaque feuille concernée comme ceci:

se mettre sur la feuille Sheet1 faire Alt F11 et mettre ceci:

Columns("a:a").ColumnWidth = 2 
Columns("b:b").ColumnWidth = 19 
Columns("c:o").ColumnWidth = 11 

se mettre sur la feuille Sheet2 faire Alt F11 et mettre ceci:

Columns("a:a").ColumnWidth = 2 
Columns("b:b").ColumnWidth = 19 
Columns("c:o").ColumnWidth = 11 

se mettre sur la feuille Sheet3 faire Alt F11 et mettre ceci:

Columns("a:a").ColumnWidth = 2 
Columns("b:b").ColumnWidth = 19 
Columns("c:o").ColumnWidth = 15 

se mettre sur la feuille Sheet6 faire Alt F11 et mettre ceci:

Columns("a:a").ColumnWidth = 3.5 
Columns("b:b").ColumnWidth = 19 
Columns("c:P").ColumnWidth = 8 


on te l'avait expliqué ici:

https://forums.commentcamarche.net/forum/affich-34752354-worksheet-selectionchange#9


Voilà c'est simple

Figer (bloquer) largeur et hauteur des cellules

2 réponses

Discussions similaires