[XL-2003] Date en VBA EXCEL [Résolu]

[ARTETA13]

Bonjour,
je suis débutant en vba et j'aimerai un peu d'aide.
Voila mon soucis est que j'ai une date dans la cellule A2 et voudrais afficher dans la colonne B tous les jours du mois correspondant a la date A2.
Merci pour votre aide!!

[rjamin]

Bonjour,
Sans VBA
En B2

Code :

=DATE(ANNEE(A2);MOIS(A2);1)

En C2

Code :

=SI(B2<FIN.MOIS($A$2;0);B2+1;"")[/B]

Tirer vers le bas la formule en C2 sur 31 lignes

[Daniel.C]

Bonjour,

Essaie :

Code :

1
2
3
4
5
6
7
Sub test()
    Do
        i = i + 1
        Cells(i, 2) = DateSerial(Year([A2]), Month([A2]), i)
        If Month(DateSerial(Year([A2]), Month([A2]), i) + 1) <> Month([A2]) Then Exit Do
    Loop
End Sub

[ARTETA13]

Bon dimanche!!!