Recherche à simplifier un code

[apdf1]

Re,

Je suis à la recherche pour simplifie ce code VBA un peut spécial.

Nous somme le  Label146.Caption = Format(Now(), "dd mmmm yyyy")il est Label144.Caption = Format(Now(), "hh : mm")heure

Résultat:
Nous somme le Lundi 24 Janvier 2011 il est 19:00 heure.

Si quelqu'un peut m'aider je le remercie d'avance

Cordialement

Max

 

[Pierrot93]

Re : Recherche à simplifier un code

Bonsoir,

essaye ceci :

Label146.Caption = "Nous somme le : " & Format(Now(), "dd mmmm yyyy") & vbLf & _
" il est " & Format(Now(), "hh : mm") & " heure"

bonne soirée
@+

 

[apdf1]

Re : Recherche à simplifier un code

Re,

Je te remercie beaucoup Pierrot

Bonne soirée

@+

Max

 

[Staple1600]

Re : Recherche à simplifier un code

Bonsoir à tous

Une autre façon de faire avec Split

Sub a()
Dim d$, h$, t
t = Split(Format(Now(), "dd mmmm yyyy-hh:mm"), "-")
d = "Nous sommes le " & t(0): h = "Il est : " & t(1)
MsgBox d & vbLf & h
End Sub

 

[apdf1]

Re : Recherche à simplifier un code

Bonsoir Staple,

Je te remercie mais moi c'est pour mettre sur un formulaire.
Mais ses sympa d'avoir donnée une autre possibilité

Bonne soirée

Max

 

[Staple1600]

Re : Recherche à simplifier un code

RE


Il me semblait évident que tu aurais fait l'adaptation tout seul

Sub a()
Dim d$, h$, t
t = Split(Format(Now(), "dd mmmm yyyy-hh:mm"), "-")
d = "Nous sommes le " & t(0): h = "Il est : " & t(1)
Label46.Caption= d & vbLf & h
End Sub

 

[apdf1]

Re : Recherche à simplifier un code

Re,

Tu as raison je sort de table peut être un peu trop arroser.
Je te remercie
Bonne soirée
Max