Discussion :

[wuging]

Salut

Voici la description de ma feuille excel.
La colonne A possède une liste de date sur un an pour chaque heure. La colonne possède les valeurs corespondante à ces dates, la colonne C les dates de l'années suivantes, la D les valeurs corresppondantes, et ainsi de suite pour trente ans.
remarque: l'année ne commence pas forcément le premier janvier à 00:30 mais peux commencer le premier avril à 00:30 ou bien le 31 mars à 23:30.
de même l'année ne finis pas forcément le 31 décembre à 23:30.

j'ai problème dans ces listes de date accompagné de valeurs il est possible qu'il ait des trous. c'est à dire: par exemple j'ai 2010-01-01 16:30 8507.55181666667 puis j'ai 2010-01-02 13:30 8507.55181666667
Je me demandais si il n'existerais pas un moyen de trouver ces trous et de rajouter entre les deux dates les dates horaires manquantes et pas de valeurs à coté.
Comme j'ai des milliers d'années à faire je cherche une macro pour executer la tache le plus vite possible.
j'ai joint un exemple.
j'ai enlevé l'exemple si vraiment vous ne comprenez pas je pourrais le remettre
Merci beaucoup

[mayekeul]

bonjour,

ce sont des paliers de 30 minutes??
la liste est ordonnée ou pas??

[wuging]

Il y a des données chaque heure.La liste est ordonnées mais il peux y avoir des trous et c'est justement ces trous que je veux trouver et compléter
j'envoie un exemple pour que ce soit clair une année à des trous l'autre pas.
merci

[Yoyo57]

Si la liste est ordonnée, le plus simple est de faire deux boucles imbriquées, l'une sur une année qui s'arrête dès la première cellule vide et l'autre sur les années qui s'arrête des la première colonne vide.

Je proposerais une ébauche du genre (a modifier selon ton besoin)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Compteur_Annees As Integer
Dim Compteur_Heures As Long
Dim DateCourante As Date
Dim DateCourante_Str As String
 
Compteur_Annees = 1
Do
    Compteur_Heures = 1
    DateCourante = Cells(1, Compteur_Annees)
    Do While (Cells(Compteur_Heures + 1, Compteur_Annees) <> "")
        Compteur_Heures = Compteur_Heures + 1
        DateCourante = DateCourante + TimeValue("00:30:00")
        DateCourante_Str = DateCourante
        If (Cells(Compteur_Heures, Compteur_Annees) <> DateCourante_Str) Then
            Range(Cells(Compteur_Heures, Compteur_Annees), Cells(Rows.Count - 1, Compteur_Annees + 1)).Copy Cells(Compteur_Heures + 1, Compteur_Annees)
            Cells(Compteur_Heures, Compteur_Annees) = DateCourante
            Cells(Compteur_Heures, Compteur_Annees + 1).ClearContents
        End If
    Loop
    Compteur_Annees = Compteur_Annees + 2
Loop While Cells(1, Compteur_Annees) <> ""

Est-ce que ca t'avance ?

[wuging]

super merci bien

[wuging]

bonjour,


j'ai un nouveau problème, j'ai la même serie de données mais les dates sont notés différemment ce n'est même pas un format date je ne sais pas comment changer ma macros (celle qu'il y aen dessus pour qu'elle trouve les trous).
mon nouveau format est comme ceci: exemple 1976.10.15-02:00:00
merci d'avance