macro pour largeur de colonne

alfazoulou · 11 Septembre 2008

Bonjour.
voilà mon problème:
J'ai plusieurs feuilles dont je voudrais que les largeurs de colonnes soient identiques de feuille à feuille.
Pour éviter le travail fastidieux d'agir sur chaque colonne de chaque feuille, j'ai fait une macro sur une d'elle et je l'applique pour chaque feuille.
Mais ça marche pas.
en fait les largeurs ne sont pat respectées ex 8,43 au lieu de 44,29
quelqu'un peut il m'expliquer pourquoi et me donner la solution.
Sinon je me taperais mes 70 colonnes une à une.
Sheets("toto1").Select
Columns("A:A").Select
Selection.ColumnWidth = 4
Columns("B:B").Select
Selection.ColumnWidth = 44.29
Columns("C:C").Select
Selection.ColumnWidth = 8.43
Columns("D😀").Select
Selection.ColumnWidth = 8.46
Columns("E:E").Select
Selection.ColumnWidth = 9.14
Columns("F:F").Select
Selection.ColumnWidth = 9
Columns("G:G").Select
Selection.ColumnWidth = 11.43
Columns("H:H").Select
Selection.ColumnWidth = 2.86

Sheets("toto2").Select
Columns("A:A").Select
Selection.ColumnWidth = 4
Columns("B:B").Select
Selection.ColumnWidth = 44.29
Columns("C:C").Select
Selection.ColumnWidth = 8.43
Columns("D😀").Select
Selection.ColumnWidth = 8.46
Columns("E:E").Select
Selection.ColumnWidth = 9.14
Columns("F:F").Select
Selection.ColumnWidth = 9
Columns("G:G").Select
Selection.ColumnWidth = 11.43
Columns("H:H").Select
Selection.ColumnWidth = 2.86
etc...
merci à tous

Guest · 11 Septembre 2008

Re : macro pour largeur de colonne

Bonjour AlfZoulou,

Essaie avec la macro suivante:

Code:

Sub SetLargeursColonnes()
    Dim sh As Worksheet
    For Each sh In Sheets(Array("toto1", "toto2"))
        With sh
            .Columns(1).ColumnWidth = 4
            .Columns(2).ColumnWidth = 44.29
            .Columns(3).ColumnWidth = 8.43
            .Columns(4).ColumnWidth = 8.46
            .Columns(5).ColumnWidth = 9.14
            .Columns(6).ColumnWidth = 7
            .Columns(7).ColumnWidth = 11.43
            .Columns(8).ColumnWidth = 2.86
        End With
    Next
End Sub

Sachant qu'excel arrondi au pixel le plus proche: 2,80 donnera 2,86 soit 25 Pixels

A bientôt
A bientôt

Cousinhub · 11 Septembre 2008

Re : macro pour largeur de colonne

Bonjour AZ

salut Gérard 🙂
PS, c'est le sémaphore de Bri..., ton nouvel avatar?

Autre réponse, trouvée sur un autre forum

Code:

Sub memes_colonnes()
Sheets.Select
Columns("A:A").ColumnWidth = 4
Columns("B:B").ColumnWidth = 44.29
Columns("C:C").ColumnWidth = 8.43
Columns("D:D").ColumnWidth = 8.46
Columns("E:E").ColumnWidth = 9.14
Columns("F:F").ColumnWidth = 9
Columns("G:G").ColumnWidth = 11.43
Columns("H:H").ColumnWidth = 2.86
Sheets("Feuil1").Select
End Sub

Guest · 11 Septembre 2008

Re : macro pour largeur de colonne

@Bh² 😀
Non, c'est le phare de Bri....... à (Pontusval)
Le sémaphore est aux Chardons Bleus

@AlfaZoulou, Excuses pour le squate....

Cousinhub · 11 Septembre 2008

Re : macro pour largeur de colonne

pfffffff

la honte

j'y suis passé il y a 15 jours

M'en veux un peu, sur ce coup........

A bientôt, à Rennes

Euh, mêmes excuses, AZ......

alfazoulou · 11 Septembre 2008

Re : macro pour largeur de colonne

Hasco à dit:
@Bh² 😀
Non, c'est le phare de Bri....... à (Pontusval)
Le sémaphore est aux Chardons Bleus

@AlfaZoulou, Excuses pour le squate....

pas de problème.
vous avez répondu à ma question merci.

mécano41 · 11 Septembre 2008

Re : macro pour largeur de colonne

Bonsoir,

Avec beaucoup de colonnes, peut être quelque chose comme cela...

(là c'est pour 3 feuilles et 8 colonnes)

Code:

Option Explicit

Sub essai()
Dim X As Variant
Dim Cpt As Long
Dim Sht
X = Array(4, 44.29, 8.43, 8.46, 9.14, 9, 11.43, 2.86)
For Sht = 1 To 3
    Sheets(Sht).Activate
    For Cpt = 0 To 7
        Range("A:A").Offset(0, Cpt).ColumnWidth = X(Cpt)
    Next Cpt
Next Sht
End Sub

Cordialement

Si les feuilles ne se suivent pas, tu peux faire une boucle For each... avec un array sur les noms de feuilles comme l'a fait Hasco au message #2... au lieu de For Sht =1 to 3

macro pour largeur de colonne

alfazoulou

XLDnaute Occasionnel

Guest

Guest

Cousinhub

XLDnaute Barbatruc

Guest

Guest

Cousinhub

XLDnaute Barbatruc

alfazoulou

XLDnaute Occasionnel

mécano41

XLDnaute Accro

Discussions similaires

macro pour largeur de colonne

alfazoulou

XLDnaute Occasionnel

Guest

Guest

Cousinhub

XLDnaute Barbatruc

Guest

Guest

Cousinhub

XLDnaute Barbatruc

alfazoulou

XLDnaute Occasionnel

mécano41

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency