Microsoft 365 Lancer une macro

Keiko · 10 Mars 2020

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 · 10 Mars 2020

Bonjour et bienvenue sur le forum,

Mettre ce code dans l'objet Thisworbook

VB:

Option Explicit

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

A+

Keiko · 10 Mars 2020

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

jmfmarques · 10 Mars 2020

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 · 10 Mars 2020

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 · 10 Mars 2020

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 · 10 Mars 2020

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

Calvus · 10 Mars 2020

Re,

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

Bien lire les réponses..

Calvus à dit:
Mettre ce code dans l'objet Thisworbook

A+

Keiko · 10 Mars 2020

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

Calvus · 10 Mars 2020

Re,

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

A+

Staple1600 · 10 Mars 2020

Bonsoir le fil

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

VB:

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

Microsoft 365 Lancer une macro

Keiko

XLDnaute Occasionnel

Calvus

XLDnaute Barbatruc

Keiko

XLDnaute Occasionnel

jmfmarques

XLDnaute Accro

Keiko

XLDnaute Occasionnel

Keiko

XLDnaute Occasionnel

Keiko

XLDnaute Occasionnel

Calvus

XLDnaute Barbatruc

Keiko

XLDnaute Occasionnel

Calvus

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires