Figer (bloquer) largeur et hauteur des cellules
Résolu
amo-51
Messages postés
98
Statut
Membre
-
amo-51 Messages postés 98 Statut Membre -
amo-51 Messages postés 98 Statut Membre -
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
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
2 réponses
-
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
-
Bonjour;
merci pour votre réponse
j'ai mis cet instruction dans le module, mais ca marche pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet1.Activate
Columns("a:a").ColumnWidth = 2
Columns("b:b").ColumnWidth = 19
Columns("c:o").ColumnWidth = 11
Sheet2.Activate
Columns("a:a").ColumnWidth = 2
Columns("b:b").ColumnWidth = 19
Columns("c:o").ColumnWidth = 11
Sheet3.Activate
Columns("a:a").ColumnWidth = 2
Columns("b:b").ColumnWidth = 19
Columns("c:o").ColumnWidth = 15
Sheet6.Activate
Columns("a:a").ColumnWidth = 3.5
Columns("b:b").ColumnWidth = 19
Columns("c:P").ColumnWidth = 8
-
-
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
