Macro écriture / date

skun · 3 Février 2009

Bonjour,

J'ai 2 dates, A4 et B4.
Ces dates sont variables.

J'aimerai qu'à son exécution , la macro écrive en A10 la date présente dans A4 et qu'à la suite elle écrive à chaque ligne la date du jours suivant jusqu'à arriver a la date de B4.

ex:

A10 = A4
A11= A10 + 1
A12= A11 + 1
...etc..
jusqu'à Axx= B4

voilà j'ai joint un petit fichier à titre d'exemple 🙂

je vous remercie pour vos conseil

salutations

skun

PMO2 · 3 Février 2009

Re : Macro écriture / date

Bonjour,

Une piste avec le code suivant

Code:

Sub EcritDate()
Dim diff&
Dim i&
Dim R As Range
Dim T()
ActiveSheet.Range("a10:a65536").ClearContents
diff& = Range("b4") - Range("a4")
Set R = ActiveSheet.Range("a10:a" & 10 + diff& & "")
ReDim T(1 To diff& + 1, 1 To 1)
T(1, 1) = CLng(Range("a4"))
For i& = 2 To diff& + 1
  T(i&, 1) = T(i& - 1, 1) + 1
Next i&
R = T
R.NumberFormat = "dd/mm/yy"
End Sub

Cordialement.

PMO
Patrick Morange

skun · 3 Février 2009

Re : Macro écriture / date

Bonjour PMO2,

C'est plus qu'une piste ! 😀
Cette solution marche comme je le désirais,

je te remercie 😀

bonne soirée

salutations

skun

Macro écriture / date

skun

XLDnaute Occasionnel

Pièces jointes

PMO2

XLDnaute Accro

skun

XLDnaute Occasionnel

Discussions similaires

Macro écriture / date

skun

XLDnaute Occasionnel

Pièces jointes

PMO2

XLDnaute Accro

skun

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency