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

jeanmi · 15 Novembre 2021

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

VB:

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 · 15 Novembre 2021

Bonjour
Essaye

VB:

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

Chris401 · 15 Novembre 2021

Bonjour
Essaye

VB:

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 · 15 Novembre 2021

Chris401 à dit:

Bonjour
Essaye

VB:

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

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

jeanmi

XLDnaute Occasionnel

Chris401

Chris401

XLDnaute Accro

jeanmi

XLDnaute Occasionnel

Discussions similaires