MACRO avec conditions sur cellules

Bonjour à tous !

J'ai une colle que je n'arrive pas à résoudre…

Un logiciel me donne des acquisitions de valeur toutes les 10 min et les ordonnes comme ci dessous :

Date Heure :00 :10 :20 :30 :40 :50

01/12/2019 00:00 141 126 132 124 132 139

01/12/2019 01:00 131 137 138 150 126 138

01/12/2019 02:00 147 137 141 144 145 158

Je dois étudier ces valeurs avec un graphique (abscisses : temps échelle 10 min; ordonnées : valeurs)

Sauf que dans l'état impossible car la mise en page n'est pas bonne. Il faudrait :

Date Heure 00:00 00:10 00:20 00:30 00:40 00:50

01/12/2019 141 126 132 124 132 139

02/12/2019 131 137 138 150 126 138

03/12/2019 147 137 141 144 145 158

Quelqu'un a une idée comment faire?

Merci infiniment,

Tanguy

Bonjour,

peut tu fournir un fichier en exemple stp ?

Merci.

Cordialement.

Re bonjour, ci joint le fichier exemple,

J'ai travaillé sur le sujet j'ai travaillé avec un tableau croisé dynamique pour atteindre le résultat attendu en faisant copier coller.

Par contre pas moyen de trouver une solution avec une macro..

Maintenant il faut que je trouve comment exploiter les données.

Tanguy

Bonjour,

un essai

Sub MajFormat()
    Dim DrCol As Integer, i As Integer
    Dim heure As Date

    heure = "00:00"
    DrCol = Cells(1, Columns.Count).End(xlToLeft).Column
    Cells(1, 3) = Format(heure, "hh:mm")
    For i = 4 To DrCol
        heure = heure + "00:10"
        Cells(1, i).Value2 = Format(heure, "hh:mm")
    Next i
End Sub

à lancer sur ta feuille BDD

Cordialement