Sub FormeDate()
Dim X As Byte
For X = 1 To 12
Sheets(1).Range('E' & X).FormulaR1C1 = '=TEXT(''1/''&RC[-1],''mmmm'')'
Next X
End Sub
Avec ce code, la macro fera en sorte de te mettre à droite de ta colonne D (donc colonne E) les noms des mois. Mais ça ne te remplaces pas directement tes numéros de mois dans la colonne D.
Toutefois rien ne t'empêche après de faire en VBA un couper coller des valeurs de la colonne E sur la colonne D.
Bonsoir,
une autre solution
A+ [file name=mois_20060602211247.zip size=6486]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mois_20060602211247.zip[/file]