Insertion automatiques des dates manquantes
TraderAS
Messages postés
119
Statut
Membre
-
TraderAS Messages postés 119 Statut Membre -
TraderAS Messages postés 119 Statut Membre -
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
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
A voir également:
- Insertion automatiques des dates manquantes
- Nombre de jours entre deux dates excel - Guide
- Insertion table des matières word - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Touche insertion clavier - Guide
- Insertion video powerpoint - Guide
2 réponses
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
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
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
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
