Insertion automatiques des dates manquantes Fermé

Question

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

via55 · Answer

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

TraderAS · Answer

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

Insertion automatiques des dates manquantes

2 réponses

Discussions similaires