XL 2016 Convertir date en texte

[KTM]

Bonjour chers amis du forum
je voudrais convertir en colonne B mes dates contenues dans ma colonne A en texte.
j'utilise le code ci dessous qui répond au besoin mais j'aimerais savoir s'il y a mieux !!!
merci.

Sub convert()
Range("B5:B10").FormulaR1C1 = "=TEXT(RC[-1],""mmm aaaa"")"
Range("B5:B10").Value = Range("B5:B10").Value
End Sub

 

[mdo100]

Bonjour à tous ! @KTM,

Une proposition

Sub Texte()

  With Range("B5:B" & Range("A" & Rows.Count).End(xlUp).Row)
    .FormulaR1C1 = _
    "=TEXT(RC[-1],""mmm aaaa"")"
    .Value = .Value
  End With

End Sub

Cordialement.

 

[KTM]

Bonjour à tous ! @KTM,

Une proposition

Sub Texte()

  With Range("B5:B" & Range("A" & Rows.Count).End(xlUp).Row)
    .FormulaR1C1 = _
    "=TEXT(RC[-1],""mmm aaaa"")"
    .Value = .Value
  End With

End Sub

Cordialement.

Merci!!