Recherche à simplifier un code

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2011

• #2

Re : Recherche à simplifier un code

Bonsoir,

essaye ceci :

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 24 Janvier 2011

• #3

Re : Recherche à simplifier un code

Re,

Je te remercie beaucoup Pierrot

Bonne soirée

@+

Max

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2011

• #4

Re : Recherche à simplifier un code

Bonsoir à tous

Une autre façon de faire avec Split

Code:

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

 

Dernière édition: 24 Janvier 2011

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 24 Janvier 2011

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2011

• #6

Re : Recherche à simplifier un code

RE


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

Code:

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 24 Janvier 2011

• #7

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

 

Vote positif 0 Vote négatif