format texte en nombre suite à une extraction

[GG56000]

bonjour à tous,

voilà ma problématique, je sors un tableau suite à une extraction, mais tout les chiffres sont en format texte, comment puis je tout transformer en format heure (c'est à dire 39:18 pour 39 heures et 18 minutes) soit via un bouton car le nombre de colonne sera toujours le meme.

Merci d'avance

 

[eriiic]

Supprime tout de suite ton fichier.
Il doit y avoir aucune données personnelles de par la loi.
Je regarde (je supprimerai les noms dans la réponse)
eric

 

[eriiic]

suite, voir au-dessus !

Ton fichier n'est pas pareil.
Tu démarrais en A1 et le tableau était isolé. Là tu démarres en U1 après d'autres données collées.

La macro adaptée :

Sub convertH()
    Const minDec = 1 / 60, repere As String = "Nom/prénom"
    Dim datas, lig As Long, col As Long, signe As Boolean, tmp, cel1 As Range
    Set cel1 = [1:2].Find(repere, , xlValues, xlWhole, , , , xlText)
    If cel1 Is Nothing Then MsgBox repere & " non trouvé en ligne 1": Exit Sub
    Set cel1 = cel1(1)
    col = Cells(1, Columns.Count).End(xlToLeft).Column ' dernière colonne
    lig = Cells(Rows.Count, cel1.Column + 1).End(xlUp).Row ' dernière ligne
    Range(cel1.Offset(1, 1), Cells(lig, col)).Select
    datas = Range(cel1.Offset(1, 1), Cells(lig, col)).Value
    For lig = 1 To UBound(datas, 1)
        For col = 1 To UBound(datas, 2)
            If InStr(datas(lig, col), ":") > 0 Then
                signe = Left(datas(lig, col), 1) = "-"
                If signe Then datas(lig, col) = Mid(datas(lig, col), 2)
                ' des heures >24 empêchent d'utiliser TimeValue pour la conversion
                tmp = Split(datas(lig, col), ":")
                datas(lig, col) = Round(tmp(0) + tmp(1) * minDec, 7)
                If signe Then datas(lig, col) = -datas(lig, col)
            End If
        Next col
    Next lig
    With cel1.Offset(1, 1).Resize(UBound(datas, 1), UBound(datas, 2))
        .Value = datas
        .NumberFormat = "0.00""h"";-0.00""h"";;@"
    End With
End Sub

eric

 

[Staple1600]

Bonsoir le fil, GG56000, eriiiic

Déjà il faudra 'Enregistrer sous...' en choisissant le Type *.xlsm si tu veux garder les macros.
Ctrl+F11 pour aller dans VBE

Juste pour infos
Ce n'est pas CTRL+F11
mais ALT+F11 pour accéder à VBE.
NB: CTRL+F11 insère une feuille macro XL4

•>eriiiic, c'était un petit coup de nostalgie ?
(Ah le bon temps de LIRE.CELLULE)

 

[eriiic]

Salut Staple, c'était pour voir si tu suivais

 

[Staple1600]

Bonsoir

•>eriiiic
Voir édition de mon message précédent

 

[eriiic]

NB: CTRL+F11 insère une feuille macro XL4

Ah, c'est pour ça que j'en ai trouvé une dans son fichier.
Je me demandais par quels détours il en était arrivé là
Bon, du coup je me suis senti obligé de corriger mon post

 

[David Aubert]

Bonjour,
J'ai supprimé les fichiers contenant des données non anonymisées.
Merci d'y faire attention la prochaine fois...
Bonne journée

 

[Staple1600]

Ah, c'est pour ça que j'en ai trouvé une dans son fichier.
Je me demandais par quels détours il en était arrivé là
Bon, du coup je me suis senti obligé de corriger mon post

Bonjour le fil, David

•>eriiiic
Sauf erreur de ma part, tu gardes le ...ConTRôle, non?
J'ai point vu d'édition.

NB: A moins que "corriger ton post", se fasse en cuir noir, avec un fouet en Option Explicit

 

[eriiic]

Bonjour,

Ah, ben décidément je fatigue. Corrigé
eric

 

[GG56000]

alors là c'est juste top (oupss pour le fichier avec les noms)

mille merci à vous et je pense revenir très vite pour d'autres tableaux