vsan
XLDnaute Junior
Bonjour à tous,
J'aimerai coder une macro qui remplira automatiquement des colonnes d'un calendrier.
Sauf que'avec la macroque j'ai crée, j'ai textuellement dans chaque cellule DATE(R3C30,m,j) et non pas 1er janvier, etc.
Pouvez-vous me sortir de là siouplé?
Merci.
Edit : j'avais oublié que la date était stockée dans la cellule cells(3,30)...
J'aimerai coder une macro qui remplira automatiquement des colonnes d'un calendrier.
Sauf que'avec la macroque j'ai crée, j'ai textuellement dans chaque cellule DATE(R3C30,m,j) et non pas 1er janvier, etc.
Pouvez-vous me sortir de là siouplé?
Merci.
Edit : j'avais oublié que la date était stockée dans la cellule cells(3,30)...
Code:
Sub Macro1()
'
' Macro1 Macro
'
'
Dim j As Integer
Dim m As Integer
For m = 1 To 12
For j = 1 To 31
Cells(3 + j, 2 * m).Select
ActiveCell.FormulaR1C1 = "=DATE(R3C30,m,j)"
Next j
Next m
End Sub
Dernière édition: