Lone-wolf
XLDnaute Barbatruc
Bonjour à tous
Concernant les tableau array, j'ai vu cet exemple
tbl(1) = "janvier"
tbl(2) = "février"
tbl(3) = "mars"
Moi j'ai modifié ceci par
Maintenant, j'aimerais inserer les jours. Sachant que je ne peux pas inclure 1 to 31 dans tablo, comment fait-on pour ça?
Concernant les tableau array, j'ai vu cet exemple
tbl(1) = "janvier"
tbl(2) = "février"
tbl(3) = "mars"
Moi j'ai modifié ceci par
VB:
Option Explicit
Sub test()
Dim i As Long, m As Long, cel As Range, dt As Date, mois, tablo(1 To 12)
[A1:L1] = ""
Set cel = [N1]
For i = LBound(tablo, 1) To UBound(tablo, 1)
m = m + 1
dt = DateSerial(cel.Value, m, 1)
tablo(i) = dt
Cells(1, i) = Format(tablo(i), "mmmm")
mois = UCase(Left(Cells(1, i), 1)) & LCase(Right(Cells(1, i), Len(Cells(1, i)) - 1))
Cells(1, i) = mois
Next i
End Sub
Maintenant, j'aimerais inserer les jours. Sachant que je ne peux pas inclure 1 to 31 dans tablo, comment fait-on pour ça?