Figer (bloquer) largeur et hauteur des cellules

Résolu
amo-51 Messages postés 94 Date d'inscription   Statut Membre Dernière intervention   -  
amo-51 Messages postés 94 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0
amo-51 Messages postés 94 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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


0
amo-51 Messages postés 94 Date d'inscription   Statut Membre Dernière intervention  
 
Merci l'ami virtuelle
j'ai bien pris note
espérons que la prochaine fois, je ne ferai pas la même bêtise :)
0

Discussions similaires

Dimensions L x l x H : comment lire ces infos ?
Miss-Curieuse -
valou -

8 réponses