incrémenter une date (x) fois

[titof]

Bonjour tout le monde
Je suis bloqué sur excel !

J'ai une date de debut connue dans une cellule. je veux incrémenter cette au dessous en nbre de fois (x) , tout dépend du besoin?

Je m'explique:

Date de début: 01/01/2013
X= 3
Résultat:
* 01/01/2013 " date départ"
02/01/2013
03/01/2013.

Si j'ai x = 6

Le résultat:
* 01/01/2013 " date départ"
02/01/2013
03/01/2013
04/01/2013
05/01/2013
06/01/2013

Et ainsi de suite...
Merci pour votre aide

Titof

 

[titof]

Re : incrémenter une date (x) fois

ok vgen , trés bien je te remercie beaucoup ainsi pour michD

J ai le plaisir de vous revoir dans une autre discussion
Titof

 

[MichD]

Re : incrémenter une date (x) fois

Il s'agit que tu transformes la macro ainsi :


J'ai supposé que la cellule G10 était sur la même
feuille où doit se produire l'incrémentation.

La variable X, le nom de la feuille, l'adresse des
cellules, tout est adaptable!

Le code peut-être écrit dans n'importe quel module.


'--------------------------
Sub test()
Dim X As Integer

With Worksheets("Feuil1") 'Adapte le nom de la feuille
X = .Range("G10") 'La cellule de ton choix
With .Range("A1")
.AutoFill Destination:=.Resize(x), Type:=xlFillDays
End With
End With
End Sub
'--------------------------