XL 2019 Insertion des dates manquantes au pas de temps de 3'

lld · 9 Janvier 2023

Bonjour à tous,
Je me permets de venir vers vous car je fais face à un problème sur un fichier Excel.
J'extrait des données au pas de temps de 3' et il arrive très fréquemment qu'un ou plusieurs pas de temps soient manquants.
J'aimerait donc balayer ma colonne "Date" - qui correspond à la colonne A - et insérer le nombre de ligne manquante lorsqu'il en manque.
Par exemple :

28/09/2021 15:54

28/09/2021 15:57

28/09/2021 16:00

28/09/2021 16:03

28/09/2021 16:06

28/09/2021 16:15

Il faudrait alors insérer deux lignes et rajouter 16:09 et 16:15.

Pensez vous que cela soit envisageable ? Je pense notamment à une macro VBA.

En vous remerciant par avance pour le temps que vous voudrez bien m'accorder.

sylvanu · 9 Janvier 2023

Bonjour IId, et bienvenu sur XLD,
Un ex en PJ avec :

Code:

Sub AjouteLignes()
    Application.ScreenUpdating = False
    dT = 3 / 1440   ' dT=3 minutes
    DL = Range("A65500").End(xlUp).Row
    For L = DL To 3 Step -1
        If Cells(L, "A") - Cells(L - 1, "A") - dT > 0.00000001 Then
            Rows(L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(L, "A") = Cells(L + 1, "A") - dT
        End If
    Next L
End Sub

A noter que j'ai pris l'hypothèse que les "trous" ne pouvait durer que 3 minutes.
Si ça va au delà alors il faudra boucler tant que le résultat est faux.

Hasco · 9 Janvier 2023

Bonsoir,

Sans plus d'indication sur le projet final, voici une méthode power query de créer une liste de dates heures pas pas de 3 minutes.

C'est normalement au demandeur de fournir un classeur exemple avec tout ce qu'il faut.

Cordialement

sylvanu · 9 Janvier 2023

Re IId, Bonsoir hasco,

sylvanu à dit:
A noter que j'ai pris l'hypothèse que les "trous" ne pouvait durer que 3 minutes.
Si ça va au delà alors il faudra boucler tant que le résultat est faux.

En fait une simple modif permet de boucher les trous même s'ils sont supérieur à 3 min.

lld · 10 Janvier 2023

Bonjour Sylvanu et Hasco,
Un grand merci pour votre réactivité. Vos deux solutions fonctionnent et me conviennent parfaitement !
Bonne journée

XL 2019 Insertion des dates manquantes au pas de temps de 3'

lld

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

lld

XLDnaute Nouveau

Discussions similaires