XL 2016 Convertir date en texte

KTM · 30 Décembre 2021

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.

VB:

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

mdo100 · 30 Décembre 2021

Bonjour à tous ! @KTM,

Une proposition

VB:

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 · 30 Décembre 2021

mdo100 à dit:
Bonjour à tous ! @KTM,

Une proposition

VB:

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!!

XL 2016 Convertir date en texte

KTM

XLDnaute Impliqué

Pièces jointes

mdo100

XLDnaute Occasionnel

KTM

XLDnaute Impliqué

Discussions similaires