XL 2010 Ajouter une formule en A3 et la copier dans d'autre lignes

[jeanmi]

Bonjour à tous,

Objectif : afficher le mois dans la colonne (A) a partir de la ligne 3 suivante la date qui est en colonne (J) jusqu'à la dernière cellule renseignée de la colonne(J)

j'ai fait le code si dessous mais ça ne semble pas fonctionner.
je n'arrive pas à trouver une solution.
Merci de l'aide.

Cordialement

formule = "=TEXT(R3C10,""mmmm"")" ' R pour ligne et C pour colonne

ActiveCell.FormulaR3C1 = formule

' puis copier cette formule dans toutes la colonne A jusqu'à la cellule vide de la colonne J

 

[Chris401]

Bonjour
Essaye

Sub Mois()
Derlg = Range("J" & Rows.Count).End(xlUp).Row
For i = 3 To Derlg
Range("A" & i) = Format(Range("J" & i), "mmmm")
Next i
End Sub

 

[jeanmi]

Bonjour
Essaye

Sub Mois()
Derlg = Range("J" & Rows.Count).End(xlUp).Row
For i = 3 To Derlg
Range("A" & i) = Format(Range("J" & i), "mmmm")
Next i
End Sub

Bonjour @Chris401 , bonjour à tous,

Merci pour cette réponse très rapide.
essayé et approuvé.
cordialement