Largeur de colonnes

[Stéphanie]

Bonjour à tous,

Qui pourrait me donner des renseignement afin
de programmer automatiquement la largeur de plusieurs colonnes
ç'est à dire autrement que manuellement via le menu :
format column->autofit selection

et tel que l'alignement des cellules soit 'wrap text' comme text
control..

Merci

Stef

 

[Dugenou]

Bonjour,

L'enregistreur de macro donne ceci :

Columns('C:C').EntireColumn.AutoFit

J'espère que ça te convient

 

[Stéphanie]

Super , merci à toi

j'ai essayé
Sheets(1).Columns('C:C').EntireColumn.AutoFit

Ok pour une feuille et une colonne, mais maintenant que pourrais-je faire pour l'ensemble des colonnes et pour l'ensemble
des pages de mon fichier?

Stef

 

[Hervé]

Bonjour stéphanie,
salut dugenou

Une proposition pour l'ensemble des colonnes d'un fichier :

Sub Bouton1_QuandClic()
Dim ws As Worksheet

For Each ws In Worksheets
ws.Columns('a:iv').EntireColumn.AutoFit
Next ws
End Sub

Salut

 

[Stéphanie]

Ok, merci!!

Stéphanie

 

[ong alain]

Bonjour à tous

Je suis intéressé par le redimensionnement des colonnes mais cela ne fonctionne pas sur une feuille protégée.
Y aurait-Il une possibilité de verrouiller les noms de colonne , de pouvoir écrire dans le reste de la feuille et de pouvoir ajuster automatiquement la largeur des colonnes.

Merci

 

[Hervé]

Bonjour

pas tout Compris, mais le plus simple pour redimensionner des colonnes sur des feuilles protégées, c'est d'enlever la protection, redimensionner, et reprotéger.

le code ci-dessous, fait ca :

Sub Bouton1_QuandClic()

Dim ws As Worksheet

For Each ws In Worksheets
ws.Unprotect
ws.Columns('a:iv').EntireColumn.AutoFit
ws.Protect
Next ws


End Sub

Salut

 

[ong alain]

Merci HERVE

Pour ton aide salutaire.....

[file name=colonnes automatiques_20050510151447.zip size=5874]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/colonnes automatiques_20050510151447.zip[/file]