SELECT CASE ? OU AUTRE ?
Bonjour,
J'aimerais vous demander un coup de main :
Je veux transformer des mois sous la forme : JANV-2011, FEV-2011, JUL-2011
en premier jour du mois : 01/01/2011, 01/02/2011...
Mettre les accents ne suffit pas à transformer le mois en date (ou peut-être que je ne sais pas !).
C'est vrai que les mois qui ne passent pas sont les mois avec accent : Février, août, décembre mais il y aussi JUL pour juillet qui n'a pas d'accent.
C'est pourquoi, j'ai tenté d'utiliser un SELECT CASE sauf que je ne sais pas faire autrement que de déclarer tous les mois existants et la manip doit être faite sur 3 ans (3 x 12 mois)
Pouvez-vous m'aider ?
Je vous joins un bout de mon code.
Merci d'avance
Bonsoir,
Essaie peut-être ainsi (en supposant les dates dans la ligne 1) :
Sub aa()
Dim MoisFr, MoisEn
Dim I As Byte
MoisFr = Array("JAN", "FEV", "MAR", "AVR", "MAI", "JUI", "JUL", "AOU", "SEP", "OCT", "NOV", "DEC")
MoisEn = Array("JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC")
For I = LBound(MoisFr) To UBound(MoisFr)
Rows(1).Replace MoisFr(I), MoisEn(I), xlPart
Next I
Rows(1).NumberFormat = "m/d/yyyy"
End SubBonne soirée
Merci de ta réponse