Largeur de colonne Excel

Le 11/09/2008 à 18:04

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: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: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...

Le 11/09/2008 à 18:12

Bonjour,

Lorsque tu as fait une feuille ,tu peux, clic gauche sur l'onglet puis sur CTRL que tu maintien enfoncé et tu fais glisser a coté.

Tu auras la même feuille que tu renomme et ansi de suite pour les autres.

A +

Le 11/09/2008 à 18:16

oui mais le problème c'est que mes dix feuilles sont déjà créées et comporte chacune des fonctions et des macro différentes.

Le 11/09/2008 à 18:22

Bonjour,

Fais ALT + F11 et met ce code suivant en double cliquant sur ThisWorkbook, modifie la valeur s'il faut :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    [A:H].ColumnWidth = 20
End Sub
Le 11/09/2008 à 18:26

Bonsoir,

essaie ce 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
Le 11/09/2008 à 18:35
felix a écrit :

Bonsoir,

essaie ce 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

ça marche toujours pas.

Zut....

Le 11/09/2008 à 18:40
Raja a écrit :

Bonjour,

Fais ALT + F11 et met ce code suivant en double cliquant sur ThisWorkbook, modifie la valeur s'il faut :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    [A:H].ColumnWidth = 20
End Sub

Merci Raja mais je veux agir uniquement sur les colonnes des 10 feuilles concernées et pas les autres feuilles.

Le 11/09/2008 à 18:53

Re-,

au vu de la réponse à Raja, tu ne nous a pas donné tous les éléments

Mon code fonctionne parfaitement, mais sur TOUTES les feuilles du classeur

tu peux aussi essayer :

Sub memes_colonnes()
For Each sh In Array("Feuil1", "Feuil3")
    Sheets(sh).Select False
Next sh
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

A toi de mettre les bons noms dans Array

Le 12/09/2008 à 00:53

Salut le forum

A tester sur la base de la macro à Félix

Sub Largeur_Colonne()
Dim I As Byte
Dim Feuille
Dim Largeur

Largeur = Array(4, 44.29, 8.43, 8.46, 9.14, 9, 11.43, 2.86)

For Each Feuille In Array("Feuil1", "Feuil3")
  For I = 0 To 7
    With Sheets(Feuille)
        .Columns(I + 1).ColumnWidth = Largeur(I)
    End With
  Next I
Next Feuille
End Sub

Mytå

Le 13/09/2008 à 02:41

AlfaZoulou, tu n'oublies pas une petite formalité ...

  • Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
    grâce à l'utilitaire se trouvant en bas de page, aperçu :
Mytå
Le 13/09/2008 à 09:49
Mytå a écrit :

AlfaZoulou, tu n'oublies pas une petite formalité ...

  • Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
    grâce à l'utilitaire se trouvant en bas de page, aperçu :
Mytå

Merci pour vos réponses et pardon de ne pas avoir signalé que mon problème était résolu en fait je suis nouveau et je ne savais pas comment faire.

je le sais à présent.

Rechercher des sujets similaires à "largeur colonne"