Microsoft 365 Format heure avec retour à la ligne

mutzik

XLDnaute Barbatruc

• 16 Mai 2020

• #2

bonjour
le retour à la ligne en vba => vbcrlf

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 16 Mai 2020

• #3

mutzik à dit:

le retour à la ligne en vba => vbcrlfetion maladroite

Cliquez pour agrandir...

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

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

 

Vote positif 0 Vote négatif

patounez

XLDnaute Nouveau

• 16 Mai 2020

• #4

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 16 Mai 2020

• #5

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patounez

XLDnaute Nouveau

• 16 Mai 2020

• #6

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

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 16 Mai 2020

• #7

patounez à dit:

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

Cliquez pour agrandir...

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

VB:

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

 

Vote positif 0 Vote négatif

Solution

patounez

XLDnaute Nouveau

• 16 Mai 2020

• #8

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

 

Vote positif 0 Vote négatif