Microsoft 365 Format heure avec retour à la ligne

[patounez]

Bonjour à tous,

Je me permets de renouveler ma demande. Je cherche le moyen, (en vba), sans passer par "alt-entrée" de créer un code qui pourrait me permettre de taper dans une cellule 12301530 afin d'obtenir sur deux lignes 12h30 15h30. J'ai créer un format de cellule 00"h"00\ 00"h"00 qui me permets bien d'obtenir 12h30 15h30 mais je ne sais pas écrire les lignes en vba pour me permettre de faire le retour à la ligne. Merci beaucoup pour votre aide

 

[mutzik]

bonjour
le retour à la ligne en vba => vbcrlf

 

[jmfmarques]

le retour à la ligne en vba => vbcrlfetion maladroite

Non --->> plutôt vblf (ou, donc chr(10) )

Ceci dit : deux données dans une même cellule = conception à reconsidérer

 

[patounez]

Merci pour ta réponse mais pour le code, je dois passer par une chaîne de caractère ou autre chose ?
Merci

 

[jmfmarques]

mais pour le code, je dois passer par une chaîne de caractère ou autre chose ?

il est évident que ce traitement sera celui d'une chaîne de caractères.

 

[patounez]

Je vais sûrement abusé mais si tu as un exemple de ce que je dois avoir, je prends (car je pense avoir du mal à m'en sortir....ou dans deux mois 😕). Merci en tout cas de tes réponses

 

[Jacky67]

Regarde la pièce jointe 1067372
Bonjour à tous,

Je me permets de renouveler ma demande. Je cherche le moyen, (en vba), sans passer par "alt-entrée" de créer un code qui pourrait me permettre de taper dans une cellule 12301530 afin d'obtenir sur deux lignes 12h30 15h30. J'ai créer un format de cellule 00"h"00\ 00"h"00 qui me permets bien d'obtenir 12h30 15h30 mais je ne sais pas écrire les lignes en vba pour me permettre de faire le retour à la ligne. Merci beaucoup pour votre aide

Bonjour à tous,
Puisque tu insistes…… ceci le fait
Il n'y a pas de contrôle sur l'exactitude de la saisie.
A placer dans le module de la feuille en question

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Len(Target) = 8 And IsNumeric(Target) Then
        Target = Format(Left(Target, 2) & ":" & Mid(Target, 3, 2), "hh\hmm") & Chr(10) & Format(Mid(Target, 5, 2) & ":" & Right(Target, 2), "hh\hmm")
    Else
        MsgBox "Saisie erronée"
    End If
    Application.EnableEvents = True
End Sub

 

[patounez]

Sincèrement, merci !!!!!!!