Sujet Précédent Sujet Suivant

Figer (bloquer) largeur et hauteur des cellules

Résolu/Fermé
amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019 - 25 févr. 2018 à 14:59
amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019 - 26 févr. 2018 à 12:39
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
25 févr. 2018 à 16:49
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 mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019
26 févr. 2018 à 10:19
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 26 févr. 2018 à 11:18
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 mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019
26 févr. 2018 à 12:39
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

colonne A disparue tableur excel
reno78840 -
Anst20 -

4 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
Dimensions L x l x H : comment lire ces infos ?
Miss-Curieuse -
valou -

8 réponses