Salut à tous

46MNO83 · 16 Mai 2008

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 · 16 Mai 2008

Re : Salut à tous

Bonsoir,

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

Code:

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

Cordialement

46MNO83 · 16 Mai 2008

Re : Salut à tous

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

Salut à tous

46MNO83

XLDnaute Junior

Spitnolan08

XLDnaute Barbatruc

46MNO83

XLDnaute Junior

Discussions similaires