Discussion :

[supengalere]

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 ?

[halaster08]

Bonjour,

Ne serait-il pas plus simple de créer toutes tes dates puis via une rechercheV récupérer l'info quand il y en a?

edit:
Ce code insert les lignes au bonne endroit chez moi, MAIS tu as un problème de dernière ligne, comme tu rajoute des lignes la boucle s'arrête avant d'avoir parcouru tout le tableau.
Il faudrait que tu calcules la différence entre la première et dernière date et en déduire le nombres de lignes à obtenir.

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 ).Insert Shift:=xlDown
 
        Cells(i , 3) = date_p10
    End If
Next i
 
End Sub

[riaolle]

Bonjour,
Lors de l'insertion de lignes, il faut faire la boucle en sens inverse. Voir ici pour des explications.
De plus, pour définir un objet (différent d'une variable), on utilise Set :

Code :

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

Set c = Cells(1, 3)

Mais de toute façon tu n'utilises pas c, plus loin dans ton code ... donc l'objet ne sert à rien ...

[halaster08]

Bonjour,
Lors de l'insertion de lignes, il faut faire la boucle en sens inverse.

Pour de la suppression oui, pour de l'insertion ça ne règle pas le problème, enfin pas entièrement, il faut rajouter un décalage d'indice.

[supengalere]

Merci à tout les deux pour vos réponses mais je ne suis pas tout à fait sur de comprendre :
halaster08, je vois le problème du décalage mais je ne vois pas comment le résoudre :/
riaolle , j'ai suivi le lien que tu m'as envoyé et j'ai modifié ma boucle de manière a partir de la fin mais cela ne règle pas le problème

[riaolle]

Ce code insert les lignes au bonne endroit chez moi, MAIS tu as un problème de dernière ligne, comme tu rajoute des lignes la boucle s'arrête avant d'avoir parcouru tout le tableau.

Ca pourrait se régler en passant plutôt par une boucle While qu'une boucle For --> Tant que la cellule n'est pas vide.