Format lors de rajout de feuilles

[guitou77]

Bonjour le Forum,
Lors de rajout de feuilles par macro, je n'arrive pas à conserver les
largeurs de colonnes.
Celà est expliqué sur le dossier joint.

Avec mes remerciements anticipés.
@+.

 

[pierrejean]

Re : Format lors de rajout de feuilles

bonjour guitou

Vois si cela te convient

Un conseil: N'utiliser On error Next que lorsque l'on sait quelle erreur on accepte

 

[guitou77]

Re : Format lors de rajout de feuilles

Bonjour pierrejean, rebonjour le Forum,

Merci pierrejean celà fonctionne très bien, une dernière petite chose,
que faut il rajouter pour que la nouvelle feuille se place à la suite des deux
autres et ainsi de suite.

Encore merci et @+.

 

[pierrejean]

Re : Format lors de rajout de feuilles

Re

Modifier:

Sub Macro2()
     .........      
    Columns("E:E").ColumnWidth = 21.13
    [COLOR=blue]ActiveSheet.Move after:=Sheets(Sheets.Count)
[/COLOR]    Sheets("Modèle").Select
    Range("A1").Select
End Sub

 

[guitou77]

Re : Format lors de rajout de feuilles

Rebonjour à tous

Merci pierrejean celà fonctionne au poil.

Encore mille fois merci @+.

 

[guitou77]

Re : Format lors de rajout de feuilles

Bonjour le forum,
Me revoilà avec mon dossier, lors de la copie d'une feuille par le double-click, celle-ci est sélectionnée, et je n'arrive pas à insérer dans la macro
la formule qui la déselectionnera avant le retour sur la feuille "inscriptions".

Merci d'avance @+.

 

[pierrejean]

Re : Format lors de rajout de feuilles

Re

En supposant que j'aie compris

 

[guitou77]

Re : Format lors de rajout de feuilles

Bonjour pierrejean, rebonjour le forum,

Mille fois merci pierrejean, tu a très bien compris, celà fonctionne impec,
çà me chagrinais de voir cette feuille toujours sélectionnée. j'avais bien
tenté Range("A1").Select, mais je n'ai pas pensé à ActiveSheet.

Encore merci @+