Identifier des minutes manquantes dans un fichier Excel

Bonjour a tous,

J'ai un fichier excel avec dans la premiere colonne AAAA/MM/JJ HH:MM et dans la deuxieme colonne la valeur de la puissance consommee en kW. J'ai certaines donnees manquantes, exemple : on peut passer de 2009/10/09 12:33 a 2009/10/09 12:35 sans avoir la valeur de la puissance pour 12:34.

Ce que je souhaiterais c'est ajouter des colonnes avec comme puissance P=0 kW pour toutes les minutes manquantes.

Bien evidemment je ne peux pas faire ca manuellement car il y a beaucoup trop de lignes (je dois faire ca pour 2 annees et 22 compteurs differents).

Je vous remercie de votre aide.

Bonjour,

une proposition via une macro

Sub test()
    i = 2
    While Cells(i, 1) <> ""
        If Round(Cells(i, 1) - Cells(i - 1, 1), 5) > TimeValue("00:01:00") Then
            Rows(i).Insert shift:=xlDown
            Cells(i, 1) = Cells(i - 1, 1) + TimeValue("00:01:00")
            Cells(i, 2) = 0
        End If
        i = i + 1
    Wend
End Sub

Bonjour,

Je vous remercie, cela fonctionne pour les minutes manquantes mais je viens de me rendre compte qu il y a aussi surement des jours manquants car avec cette macro, je n'obtiens pas toutes les minutes de l'annee.

Je pense que dans mon fichier il y a des cas ou par exemple:

On passe de '2009/12/01 12:00' a '2009/12/02 12:00' (ou 12:01)

Comment est ce que je peux resoudre ces cas en modifiant la macro pour tenir compte du jour de l'annee?

Je vous remercie d'avance

Bonjour,

comme cela fonctionne chez moi, le problème doit se situer dans ton fichier. mets-en un extrait (qui provoque l'erreur) sur le forum.

Voila une capture ecran.

Normalement on devrait arriver a 366 jours*24 heurs*60 minutes = 527 040 lignes mais j'en obtiens que 498 944 avec la macro proposee.

Merci d'avance

Bonjour,

merci de joindre un fichier excel ( dans lequel on peut reproduire le problème) et non pas une photo.

Le fichier en entier est beaucoup trop volumineux pour l uploader mais voici un extrait (mais cet extrait ne contient pas les lignes manquantes qui sont difficilement identifiables a l'oeil nu car il y a 500 000 lignes..)

Merci d'avance

Bonjour,

sans fichier dans lequel tu peux reproduire l'erreur je ne peux pas t'aider.

tu peux mettre ton fichier sur cjoint.com et mettre le lien ici.

voici une version adaptée à ton fichier

Sub test()
    i = 3
    Application.ScreenUpdating = False
    While Cells(i, 1) <> ""
    x = Round(Cells(i, 1) - Cells(i - 1, 1), 5)
        If x > TimeValue("00:01:00") Then
            Rows(i).Insert shift:=xlDown
            Cells(i, 1) = Cells(i - 1, 1) + TimeValue("00:01:00")
            Cells(i, 3) = 0
        End If
        i = i + 1
    Wend
    Application.ScreenUpdating = True
End Sub

Cela fonctionne avec la macro que vous m avez proposee

Je vous remercie beaucoup,

Sarah.