Macro même largeur de colonnes tous onglets d'un classeur

Salut,

J'ai un classeur avec 5 onglets. J'ai redimensionné les largeurs de colonnes A à E selon mes préférences. Je cherche maintenant à créer une macro qui me retranscrira ces largeurs personnalisées dans les 4 autres onglets (faire ça manuellement sur 4 onglets est envisageable mais je risque d'avoir plusieurs dizaines d'onglets dans le futur ce qui est sera bien plus pénible )

Comment écrire cette macro ?

Ci-joint un fichier Test

Merci bcp pour votre aide :)

Bonjour,

Un essai ...

Sub LargeurColonnes()
Dim Sh As Worksheet
Dim Source As Worksheet
Dim C As Byte

    Set Source = Worksheets("Feuil1")

    For Each Sh In Worksheets
        If Sh.Name <> Source.Name Then
            For C = 1 To 5
                Sh.Columns(C).ColumnWidth = Source.Columns(C).ColumnWidth
            Next C
        End If
    Next Sh
End Sub

ric

Bonjour,

une autre méthode consiste à duppliquer l'onglet qui est aux bonnes dimensions plutôt que de redimensionner à chaque nouvel onglet.

Bonjour,

et si tu fais une sélection 3D (clic 1er onglet, shift-clic sur le dernier) tes modifs s'appliquent à tous les onglets sélectionnés.
Ne pas oublier de défaire la sélection 3D quand c'est fini.

eric

Hello tout le monde,

Merci pour vos contributions. J'ai réussi à faire ce que je voulais grâce à vos solutions, merci bcp!!!

Cordialement

Joris