XL 2016 date + heure sans les secondes

la fifine · 2 Mars 2019

bonjour à tous
quel est la syntaxe pour ecrire dans une cellules en VBA
la date + l'heure sans les secondes
j'ai fait comme ça
range("L9").value = Date & " à " & Time
mais ça me met 21/02/2019 à 15:10:30
alors que 21/02/2019 à 15:10 me conviendrait mieux
il faut passer par format (HH:Mn) mais je n'arrive à rien
merci de votre aide

pierrejean · 2 Mars 2019

Bonjour fifine

Range("A1") = Date & " à " & Left(Time, 5)

Modeste geedee · 2 Mars 2019

Bonsour®

la fifine à dit:
bonjour à tous
quel est la syntaxe pour ecrire dans une cellules en VBA
la date + l'heure sans les secondes
j'ai fait comme ça
range("L9").value = Date & " à " & Time
mais ça me met 21/02/2019 à 15:10:30
alors que 21/02/2019 à 15:10 me conviendrait mieux
il faut passer par format (HH:Mn) mais je n'arrive à rien
merci de votre aide

affichage date et contenu texte
range("L9").value = Format(now(),"dd/mm/yyyy hh:mm")

ou bien
affichage date et contenu valeur excel
with range("L9")
.value=now()
.numberformat="dd/mm/yyyy hh:mm"
end with

Staple1600 · 2 Mars 2019

Bonjour,

Sans VBA et dans un vieux Excel
=MAINTENANT() saisi en A1 n'affiche pas les secondes
Avec VBA, toujours dans l'antique (XL2K3 pour être précis)

Code:

Sub a()
'une variante syntaxique
MsgBox Left(Now, Len(Now) - 3)
'par insertion de la formule =MAINTENANT()
Range("A1") = "=NOW()"
End Sub

PS: Salutations aux "anciens" d'XLD présents dans ce fil 😉

la fifine · 2 Mars 2019

bonjour et merci pour vos reponses j'ai utilisé le code de PierreJean qui prenait en compte le " à" entre la date et l'heure
bonne journée

Staple1600 · 2 Mars 2019

Re

Dans ce cas, avec une petite adaptation formative, on peut faire 😉
=TEXTE(MAINTENANT();"""Le ""jj/mm/aaaa"" à ""hh:mm")
Et pour varier les plaisirs (en VBA)

Code:

Sub b()
MsgBox "Le " & Split(Now)(0) & " à " & Mid(Time, 1, 5)
End Sub

Modeste geedee · 10 Mars 2019

Bonsour®

la fifine à dit:
bonjour à tous
quel est la syntaxe pour ecrire dans une cellules en VBA
la date + l'heure sans les secondes
j'ai fait comme ça
range("L9").value = Date & " à " & Time
mais ça me met 21/02/2019 à 15:10:30
alors que 21/02/2019 à 15:10 me conviendrait mieux
il faut passer par format (HH:Mn) mais je n'arrive à rien
merci de votre aide

Pourquoi pas simplement : ???
Range("L9").value=Now()
Range("L9").NumberFormat ="""le ""d/mm/yyyy"" à ""hh:mm"
ou bien:
Range("L9").NumberFormat ="l\e d/mm/yyyy \à hh:mm"

XL 2016 date + heure sans les secondes

la fifine

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

la fifine

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Discussions similaires

XL 2016 date + heure sans les secondes

la fifine

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

la fifine

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency