Microsoft 365 Lancer une macro

[Keiko]

Bonjour, j'ai une macro qui fonctionne super bien et qui me permet de régler mes largeur et longueur.
La voici :

Sub Macro1()
'
' Macro1 Macro
'

'
Columns("a:fl").Select
Selection.ColumnWidth = 2.7
Selection.RowHeight = 7
End Sub

Je souhaiterais quelle s'active lors de l'ouverture de mon excel, comment faire?

Que dois-je ajouter?

Pouvez-vous placer le code dans celui existant?

Bien à vous,

 

[Calvus]

Bonjour et bienvenue sur le forum,

Mettre ce code dans l'objet Thisworbook

Option Explicit

Private Sub Workbook_Open()
Columns("A:F").ColumnWidth = 2.7
Columns("A:F").RowHeight = 7
End Sub

A+

 

[Keiko]

Cela ne s'active pas à l'ouverture :'(

 

[jmfmarques]

Bonjour
J'attends patiemment que la demande soit précisée.
Aucun des codes montré ne précisant la feuille à impacter, ma foi ...
J'attends donc que cet effort de précision soit fait. On en est déjà au 4ème message.

 

[Keiko]

Je mets le code dans la feuille, dois je pour cela le préciser?
J'ai besoin que quand mon excel s'ouvre, mes colonnes et hauteur se mettent à hauteur.
Comme expliquer ci dessus.
Pour cela je voudrais que à l'ouverture de excel, la macro s'active pour les mettres à la taille prévue.

 

[Keiko]

Que dois-je faire de plus?
La formule fonctionne très bien quand je la teste mais ne fonctionne pas à l'ouverture de mon excel.
Je souhaiterais qu'a l'ouverture, elle puisse remettre le document comme déterminé dans le code.

Merci pour votre aide !

 

[Keiko]

les feuilles a impacter sont 1-0<10, 1-0>10, 3-0<10, 3-0>10,

 

[Calvus]

Re,

Cela ne s'active pas à l'ouverture :'(

Bien lire les réponses..

Mettre ce code dans l'objet Thisworbook

A+

 

[Keiko]

Ok j'ai vu merci mais dans thiswoorbook ca ne marche 🙁

 

[Calvus]

Re,

Pas possible !
Envoie ton fichier car là on ne peut pas faire plus.

A+

 

[Staple1600]

Bonsoir le fil

Parce qu'il y avait longtemps que je n'avais pas FillAcross 😉

Sub Test()
Dim zaizai
zaizai = Array("1-0<10", "1-0>10", "3-0<10", "3-0>10")
With Worksheets("1-0<10").Columns("A:F")
.ColumnWidth = 2.7: .RowHeight = 7
End With
Sheets(zaizai).FillAcrossSheets Worksheets("1-0<10").Range("A:F"), xlFillWithFormats
End Sub