Comment créer une matrice de dynamique VBA dans Microsoft Excel
Question:
Les jours de la semaine et les dates d’un mois doivent être ouverts dans un tableau bidimensionnel puis insérés dans la feuille
Réponse:
Placez le code ci-dessous dans le module standard.
Sub dayarray() Dim arrDay(1 To 31, 1 To 2) As Variant Dim intCounter As Integer For intCounter = 1 To 31 arrDay(intCounter, 2) = DateSerial(Year(Date), 12, intCounter) arrDay(intCounter, 1) = Format(arrDay(intCounter, 2), "dddd") Next intCounter Range("A1:B31").Value = arrDay End Sub