• Initiateur de la discussion Initiateur de la discussion Nanou42
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Nanou42

XLDnaute Nouveau
Bonjour à tous,

J'ai un format date :
3/13/2017 11:19:56 AM

que j'aimerais transformer en :
03/13/2017 11:19:56 même en allant sur format >personnalisé
jj/mm/aaaa hh:mm
je n'y arrive pas

Merci pour votre aide
 
Re,
Dans ton exemple il s'agit visiblement d'une date issue d'un autre fichier (ou autre) et dans ce cas le format est appliqué par défaut ou bien le contenu de ta cellule est saisi manuellement et il faut alors appliqué le format souhaité.
Regarde dans le fichier joint. Le format jj/mm/aaaa hh:mm:ss est appliqué en B1.
@+
 

Pièces jointes

Bonsoir à tous 🙂

Un essai par VBA

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = 1 To 18
Cells(i, 1) = Format(Cells(i, 1), "dd/mm/yyyy hh:mm")
Next i
Cancel = True
End Sub
 
Dernière édition:
Bonsoir.
Cette fonction perso permet de récupérer la date et l'heure correctement :
VB:
Function DateHeuFr(ByVal DateHeuUSA As String) As Date
Dim P As Long, TD() As String
P = InStr(DateHeuUSA, " "): TD = Split(Left$(DateHeuUSA, P - 1), "/")
DateHeuFr = DateSerial(TD(2), TD(0), TD(1)) + TimeValue(Mid$(DateHeuUSA, P + 1))
End Function
En B1, à propager sur 18 lignes :
Code:
=DateHeuFr($A1)
 
Merci à tous, cette fonction "fonctionne"

🙂

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = 1 To 100000
Cells(i, 1) = Format(Cells(i, 1), "dd/mm/yyyy hh:mm:ss")
Next i
Cancel = True
End Sub

J'ai mis 100000 pour avoir le max mais si je veux que ça aille jusqu'à la dernière ligne.
Y a t'il une modif.

En tous cas merci
 
Pas bon cette solution.
Outre qu'elle laisse la donnée sous forme de texte, elle ne marche que s'il n'y a pas de confusion possible entre le mois et le jour.
Testez voir ça :
VB:
Sub test()
MsgBox AvecFormat("3/13/2017 11:59:00 PM") & vbLf _
     & AvecFormat("3/12/2017 11:59:00 PM")
End Sub
Function AvecFormat(ByVal S As String) As String
AvecFormat = """" & S & """ —› """ & Format(S, "dd/mm/yyyy hh:mm") & """."
End Function
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
151
Réponses
134
Affichages
4 K
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
105
Réponses
6
Affichages
303
Réponses
6
Affichages
283
Retour