Salut à tous

[46MNO83]

Avec toutes les demandes importantes et les solutions fournies, je me demande si mon petit poblème ne sera pas ridicule.
comment remplacer dans une macro...
Dim m(12)
m(1)="Janvier":m(2)="Février": etc

je n'ai pas trouvé le data et le read d'antan
merci pour votre aide

 

[Spitnolan08]

Re : Salut à tous

Bonsoir,

Pas sûr d'avoir tout compris...
Peut ëtre avec :

Sub test()
Dim m(12)
For i = 1 To 12
    m(i) = Format(DateSerial(0, i, 1), "mmmm")
Next
End Sub

Cordialement

 

[46MNO83]

Re : Salut à tous

Merci Spitnolan08
c'est vraiement du super rapide,mieux que La R...
Amicalement...