Microsoft 365 format de cellules

Staple1600

XLDnaute Barbatruc

• 31 Mars 2020

• #2

Bonjour le fil, arthour973

•>arthour973
Tu peux publier également ton code VBA dans le corps de ton message, stp ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 31 Mars 2020

• #3

Bonjour JM,
Voilà ci-dessous :

Code:

Sub format_E5()
    Range([e7], Cells(Rows.Count, "e").End(xlUp)).ClearFormats
    Range([e7], Cells(Rows.Count, "e").End(xlUp)).NumberFormat = "dd mm yy hh:mm"
    Range([e7], Cells(Rows.Count, "e").End(xlUp)).HorizontalAlignment = xlCenter
    Range([e7], Cells(Rows.Count, "e").End(xlUp)).VerticalAlignment = xlCenter
    Range([e7], Cells(Rows.Count, "e").End(xlUp)).WrapText = True
End Sub

lionel

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Mars 2020

• #4

Re

Tu peux ajouter des endives déjà, non ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Mars 2020

• #5

Re

Ce n'est pas une blague
endives (chez moi) = With... End With

Sinon à la sauce Staple (spécial confinement)

VB:

Sub format_E5_b()
Dim r As Range: Set r = Range([E7], Cells(Rows.Count, "E").End(3))
r.ClearFormats: r.NumberFormat = "dd mm yy hh:mm": r.HorizontalAlignment = 3: r.VerticalAlignment = xlCenter: r.WrapText = -1
End Sub

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 31 Mars 2020

• #6

Hello JM,
Merci pour ton code... je prends
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 31 Mars 2020

• #7

"Ce n'est pas une blague - endives (chez moi) = With... End With"
Bizarre lol

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Mars 2020

• #8

Re

Tu comprends mieux ainsi ?

Enrichi (BBcode):

Sub format_E5()
With Range([e7], Cells(Rows.Count, "e").End(xlUp))
   .ClearFormats
   .NumberFormat = "dd mm yy hh:mm"
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
   .WrapText = True
End With
End Sub

Vu la proximité phonétique entre endives et End With, souvent dans mes posts, je parle de: ajouter des endives
Capito ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 31 Mars 2020

• #9

Yes
envoies ton lexique

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 31 Mars 2020

• #10

Bonjour,

Staple1600 à dit:

Vu la proximité phonétique entre endives et End With, souvent dans mes posts, je parle: ajouter des endives
Capito ?

Cliquez pour agrandir...

Et pour le End If, tu mets quoi alors ? Des "enduits" peut-être ???

LOL

 

Dernière édition: 31 Mars 2020

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 31 Mars 2020

• #11

Bjr Marcel32
peut-être : Dis-moi oui, AndyF

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Mars 2020

• #12

Re

Ceux qui me connaissent (ou me suivent depuis longtemps) n'ont pas besoin de lexique
Déjà en 2010...

https://www.excel-downloads.com/threads/aide-sur-une-macrocommandes.139368/#post-824056

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 31 Mars 2020

• #13

Je disais juste, histoire de passer le temps, que "endive" faisait infiniment plus penser à "End If" qu'à "End With", et que par exemple "enduit" se rapprochait plus que "endive" de "End With".

That's all

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Mars 2020

• #14

Re

Marcel32
Le mot lexique apparaissait dans le message#9
(et non point dans le #10)
D'où le message#12 (auquel le #13 ne devrait point être associé)

 

Vote positif 0 Vote négatif