texte en date vba

Hoareau · 13 Novembre 2016

Bonjour
Je voudrais convertir des dates texte en format date "01/08/2009"

Merci

Sub format_date()
Dim C As Range
For Each C In Range("B8:B100")

C.Font.ColorIndex = 30

Next
End Sub

phlaurent55 · 13 Novembre 2016

Bonjour Hoareau,

avec cette formule en C8 ( à recopier vers le bas)

=REMPLACER(B8;TROUVE(" ";B8);6;"/8/")*1

Remarque:
formule à adapter pour les autres mois (modifier ce qui est en rouge)

à+
Philippe

JFL_XLD · 13 Novembre 2016

Bonjour !

Si votre souci provient du mois mal orthographié alors la solution présentée par phlaurent55 est parfaite !

Si on suppose que votre besoin est de transformer du texte en date excel le fonction DATEVAL(B8) vous donnera le bon résultat (avec un mois correctement orthographié !)

Si vous avez besoin du Vba DateValue est faite pour vous !

Function Transf_Date(Dat)
Transf_Date = DateValue(Dat)
End Function

Cordialement

JFL

Jacky67 · 13 Novembre 2016

Hoareau à dit:
Bonjour
Je voudrais convertir des dates texte en format date "01/08/2009"

Merci

Sub format_date()
Dim C As Range
For Each C In Range("B8:B100")

C.Font.ColorIndex = 30

Next
End Sub

Bonjour,
Sans formule, sans vba ?????
Sélection de B8:B38
Menu accueil==> Rechercher et Sélectionner==> Remplacer
Rechercher: aout
Remplacer par: août

Et mettre au format souhaité

Hoareau · 13 Novembre 2016

Jacky67 à dit:
Bonjour,
Sans formule, sans vba ?????
Sélection de B8:B38
Menu accueil==> Rechercher et Sélectionner==> Remplacer
Rechercher: aout
Remplacer par: août

Et mettre au format souhaité

Hoareau · 13 Novembre 2016

Merci a tous

la réponse la plus simple, à savoir aout en août m'a suffit

texte en date vba

Hoareau

XLDnaute Occasionnel

Pièces jointes

phlaurent55

Nous a quittés en 2020

JFL_XLD

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Hoareau

XLDnaute Occasionnel

Hoareau

XLDnaute Occasionnel

Discussions similaires