Bonjour le forum !

Voila je viens vers vous car je galère un peu sur une macro en VBA.
je traite 2 pages de données : sur chacune d'elle il y a une colonne comprenant les dates (dd/mm/yyyy hh:mm:ss) et une seconde comportant des vitesses de vents. Les mesures sont censées être prises toute les 10 minutes seulement voila je me suis aperçu qu'il manquait certaine dates.
J'ai donc essayé de créer un petit programme qui lit les dates en colonne C et qui vérifie que la date ligne i est bien égale a la date ligne i-1 mais décalée de 10 min.


je ne sais pas si je suis très clair alors voici mon exemple :

C D
27/05/2017 00:00 7.1
27/05/2017 00:10 8
27/05/2017 00:20 9.2
27/05/2017 01:00 10

L'objectif serait de rajouter 3 lignes comportant la date manquante

j'ai commencé a codé mais le résultat n'est pas le bon : les lignes ne s’insèrent pas au bon endroit.
Voici le code :

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
 
Sub ajoute_date()
 
 
 
DerniereLigne = Cells(Rows.Count, 3).End(xlUp).Row
 
c = Cells(1, 3)
 
'DateAdd("m", -3, Date())
 
For i = 3 To DerniereLigne
    date_p10 = DateAdd("n", 10, CDate(Cells(i - 1, 3)))
    If CDate(Cells(i, 3)) <> date_p10 Then
        Rows(i - 1).Insert Shift:=xlDown
 
        Cells(i - 1, 3) = date_p10
    End If
Next i
 
End Sub
Pouvez vous m'aider ?