Largeur de colonne

[maval]

Bonjour

Comment définir en VBA une même largeur d'une colonnes "K" à 21 Onglets

je vous remercie d'avance

 

[Staple1600]

Re : Largeur de colonne

Bonjour à tous

maval
Avec une boucle, qu’après 1382 posts sur le forum, tu devrais être en mesure de faire, non ?
(sans compter les autres posts sur les autres forums)

Dim ws As Worksheet
For Each ws in Worsheets
'ton code
Next

 

[JCGL]

Re : Largeur de colonne

Bonjour à tous,
Salut l'Agrafe,

Peux-tu essayer :

Sub Largeur()
Dim F
For F = 1 To Sheets.Count
Sheets(F).Columns(11).ColumnWidth = 5
Next
End Sub

A+ à tous

 

[Staple1600]

Re : Largeur de colonne

Bonjour JCGL


Juste parce que j'affectionne FillAcrossSheet et pour boucler la boucle* 😉
(*:celle que j'évoquais dans mon premier message)

Sub a()
Dim arrWSN() As String, i%
'crée un tableau avec le nom de toutes les feuilles du classeur actif
ReDim arrWSN(1 To ActiveWorkbook.Sheets.Count)
For i = 1 To Sheets.Count
arrWSN(i) = Sheets(i).Name
Next i
'ici recopie le format de la colonne C, donc également la largeur de colonnes
Worksheets(arrWSN).FillAcrossSheets Worksheets(1).Range("C:C"), xlFillWithFormats
End Sub

macro issue d'un vieux fil des archives où je utilisais déjà FillAcrossSheets
'http://www.excel-downloads.com/forum/190346-code-pour-copier-une-mise-en-forme-automatiquement-correction-svp.html

 

[maval]

Re : Largeur de colonne

Bonjour JCGL

Je te remercie et te souhaite une bonne journée

 

[Staple1600]

Re : Largeur de colonne

Re

maval
Tu n'as pas vu la jolie macro que j'ai sorti des archives ou tu me snobes 😉 ?
(cf mon précédent message)

 

[maval]

Re : Largeur de colonne

Bonjour JM

Je ne sais pas pourquoi à chaque message que tu me renvoie il y a toujours une phrase qui te rend très agréable. Je me demande se que j'ai peut te faire?
Mais bon! je te remercie et je te souhaite un bon dimanche........

 

[maval]

Re : Largeur de colonne

Pour JM

Suite à ton message que tu m'as envoyer l'affaire est clos n'en parlons plus. J'espère à très bientôt sur le fil.
Bonne journée