Insertion automatiques des dates manquantes

Fermé
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 26 févr. 2013 à 10:42
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 27 févr. 2013 à 11:17
Bonjour,

j'ai un tableau à deux colonnes : colonne date et colonne valeur
parfois lors de la réception des données j'ai des données manquantes, par exemple:

date Valeur
02/03/2013 1600
03/03/2013 1400
05/03/2013 1530
06/03/2013 1650
09/03/2013 1300
10/03/2013 1800
12/03/2013 1200
13/03/2013 1800
ETC.

comme vous pouvez le constater, il y'a des dates et des lignes manquantes comme:
dates du 04/03/2013 , 07-08/03/2013 et dat du 11/03/2013

mon besoin consiste à avoir une Macro qui me permet d'insérer automatiquement les dates manquantes et d'y affaceter à la colonne valeur la dernière date
per exemple pour l'insertion de la date du 04/03/2013, dans la colonne valeur je veux avoir la valeur de la date du 03/03/2013 C'est à dire 1400

Merci
TraderAS

2 réponses

via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 705
26 févr. 2013 à 12:10
Bonjour,

Voir la macro suivante
A adapter en fonction des lignes et colonnes du fichier
Sub manques()
x = 3 'ligne cellule depart
y = 2 ' colonne cellule depart
Do While Cells(x, y).Value <> Empty 'jusqu'à rencontrer cellule vide
a = Cells(x, y).Value
b = Cells(x + 1, y).Value

If (b - a) > 1 Then
Rows(x + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(x + 1, y).Value = Cells(x, y).Value + 1
Cells(x + 1, y + 1).Value = Cells(x, y + 1).Value
x = x - 1
End If
x = x + 1
Loop
End Sub
0
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 1
27 févr. 2013 à 11:17
salut,

j'ai inséré cette macro et je l'ai appliqué, sauf que je n'ai pas le résultat souhaité, cette macro n'ajoute pas les dates manquantes, et elle ne fait qu'ajouter copier les valeurs pour toutes les dates comme suit:

11/02/2013 190
191
192
193
194
195
196
197
198
199
10/02/2013 200
201
202
203
204
205
206
207
208
209
0