XL 2016 date + heure sans les secondes

[la fifine]

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]

Bonjour fifine

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

 

[Modeste geedee]

Bonsour®

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]

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)

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]

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]

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)

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

 

[Modeste geedee]

Bonsour®

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"