Microsoft 365 Lancer une macro

Calvus

XLDnaute Barbatruc

• 10 Mars 2020

• #2

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+

 

Vote positif 0 Vote négatif

K

Keiko

XLDnaute Occasionnel

• 10 Mars 2020

• #3

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 10 Mars 2020

• #4

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.

 

Vote positif 0 Vote négatif

K

Keiko

XLDnaute Occasionnel

• 10 Mars 2020

• #5

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.

 

Vote positif 0 Vote négatif

K

Keiko

XLDnaute Occasionnel

• 10 Mars 2020

• #6

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 !

 

Vote positif 0 Vote négatif

K

Keiko

XLDnaute Occasionnel

• 10 Mars 2020

• #7

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 10 Mars 2020

• #8

Re,

Keiko à dit:

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

Cliquez pour agrandir...

Bien lire les réponses..

Calvus à dit:

Mettre ce code dans l'objet Thisworbook

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

K

Keiko

XLDnaute Occasionnel

• 10 Mars 2020

• #9

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 10 Mars 2020

• #10

Re,

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

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Mars 2020

• #11

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

 

Vote positif 0 Vote négatif