Microsoft 365 format de cellules

[Usine à gaz]

Bonjour à toutes et à tous,

Pour des besoins d'affichage, j'ai fait un ch'ti code qui semble fonctionner.
Je me permets de vous solliciter :
1- mon code vous parait-il être correct ?
2 - est-il possible de faire plus simple ?

Un grand merci à vous toutes et tous
Je joins le fichier test,
Je vous souhaite une bonne journée,
Amicalement,
lionel,

 

[Staple1600]

Bonjour le fil, arthour973

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

 

[Usine à gaz]

Bonjour JM,
Voilà ci-dessous :

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

 

[Staple1600]

Re

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

 

[Staple1600]

Re

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

Sinon à la sauce Staple (spécial confinement)

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

 

[Usine à gaz]

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

 

[Usine à gaz]

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

 

[Staple1600]

Re

Tu comprends mieux ainsi ?

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 ?

 

[Usine à gaz]

Yes
envoies ton lexique

 

[TooFatBoy]

Bonjour,

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

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

LOL

 

[Usine à gaz]

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

 

[Staple1600]

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

 

[TooFatBoy]

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

 

[Staple1600]

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é)