Macro pour concaténer des heures de début et fin

[isa44]

Bonsoir , j'ai essayé de faire une macro avec l'enregistreur sans succès ( j'ai plusieurs feuilles à remettre en forme).

Je joint l'exemple de ce que je voudrais.

Merci pour vos solutions précieuses

 

[mth]

Re : Macro pour concaténer des heures de début et fin

Bonjour,

Un essai sans macro avec cette formule en M6 et copiée vers le bas

=TEXTE(F6;"hh:mm")&CAR(10)&TEXTE(H6;"hh:mm")

et N6:

=TEXTE(E6;"hh:mm")&CAR(10)&TEXTE(G6;"hh:mm")

Dans le format des colonnes M et N, il suffit de cocher "Renvoyer à la ligne automatiquement".

Bonne soirée,

mth

 

[isa44]

Re : Macro pour concaténer des heures de début et fin

Merci , mais je voudrais le faire par macro car j'ai une trentaine de feuilles à modifier

 

[mth]

Re : Macro pour concaténer des heures de début et fin

re,

Essaie avec ceci:

Sub isa()
Application.ScreenUpdating = False
With Sheets("Feuil1")
For Each c In Range("M6:N" & Cells(Rows.Count, 1).End(xlUp).Row)
    c.WrapText = True
    c.Value = Format(c.Offset(0, -8), "hh:mm") & Chr(10) & Format(c.Offset(0, -6), "hh:mm")
Next
End With
Application.ScreenUpdating = True
End Sub

Bonne soirée,

mth

 

[forsanta]

Re : Macro pour concaténer des heures de début et fin

et voila dit moi si sa te convient

With Feuil1 ' ==============      feuil1 est le nom de création de la feuille pas le nom de l'onglet
    ' ====================      comptage du nombre de ligne
    compteur = 6
    l = 6
    While .Cells(l, 1).Value <> ""
        compteur = compteur + 1
        l = l + 1
    Wend
    
    ' ====================      concateration des donnée
    For x = 6 To compteur
        '================       partie debut
        valeur1 = TimeSerial(Hour(.Cells(x, 5).Value), Minute(.Cells(x, 5).Value), Second(.Cells(x, 5).Value))
        valeur2 = TimeSerial(Hour(.Cells(x, 7).Value), Minute(.Cells(x, 7).Value), Second(.Cells(x, 7).Value))
            .Cells(x, 13).FormulaR1C1 = valeur1 & Chr(10) & valeur2
        
        '================       partie fin
        valeur1 = TimeSerial(Hour(.Cells(x, 6).Value), Minute(.Cells(x, 6).Value), Second(.Cells(x, 6).Value))
        valeur2 = TimeSerial(Hour(.Cells(x, 8).Value), Minute(.Cells(x, 8).Value), Second(.Cells(x, 8).Value))
            .Cells(x, 14).FormulaR1C1 = valeur1 & Chr(10) & valeur2
        
    Next x

End With

 

[isa44]

Re : Macro pour concaténer des heures de début et fin

Merci à tous grâce à vous je vais gagner du temps.