Ajouter heure dans le code
Salut Tous,
J'ai déjà la date et que dois-je ajouter à ce code pour avoir l'heure sans les secondes?
Merci Beaucoup.
Private Sub Worksheet_Change(ByVal Target As Range)
'Forcer Majuscule ds Cellule'
If Not Intersect(Target, [A1:AL43]) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
If Not Intersect(Range("V4"), Target) Is Nothing Then
Sheets("Save_PO").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Target & " " & Format(Date, "yyyy-mm-dd")
End If
End If
End Sub
Hello tout le monde,
Il faut utiliser le Now... Comme ceci...
Format(Now, "yyyy-mm-dd hh:mm")Personnellement Je trouve plus logique comme ceci...
Format(Now, "dd.mm.yyyy - hh:mm")Mais bien sûr c'est vous qui voyez.
Salut Hulk,
Merci Beaucoup pour les deux solutions.
J'aime bien votre deuxième solution.
Ça fonctionne bien.
Encore une fois MERCI.