Formater date en texte

A

abcd

XLDnaute Barbatruc

• 13 Juin 2008

• #2

Re : Formater date en texte

Bonjour,

Sélectionner les cellules à convertir en texte.
Menu Doonées / Convertir / Largeur fixe / Suivant / Suivant / cocher "Texte" / Terminer.

abcd

 

Vote positif 0 Vote négatif

J

joquetino

Guest

• 13 Juin 2008

• #3

Re : Formater date en texte

Bonsoir à vous,

Merci bcp pour cette manip'. C'est exactement ce que je recherche.

Bonne soirée et bon week-end

 

Vote positif 0 Vote négatif

J

joquetino

Guest

• 16 Juin 2008

• #4

Re : Formater date en texte

J'aurai une autre petite question : je suis en train d'automatiser cette conversion via une macro vba. La conversion s'effectue, sauf qu'il me convertit les dates au format anglais.

Ainsi, par exemple, si je lui demande de convertir la date "25/04/2008" au format texte, j'aurai en sortie via ma macro le champ texte suivant "04/25/2008".

Est-il possible de faire cette même conversion, avec les dates qui conservent leur format français?

Voici mon code

Code:

        'Modifier type de données
        xlSheet.Columns(1).Select
        Selection.TextToColumns DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True

Merci d'avance.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Juin 2008

• #5

Re : Formater date en texte

bonsoir joquetino

Oublier S.V.P

 

Dernière édition: 16 Juin 2008

Vote positif 0 Vote négatif

J

joquetino

Guest

• 16 Juin 2008

• #6

Re : Formater date en texte

Bonsoir,

Oublier quoi?

 

Vote positif 0 Vote négatif

J

joquetino

Guest

• 16 Juin 2008

• #7

Re : Formater date en texte

Une précision me semble importante : dans la colonne que je souhaite convertir, il n'y a pas que des dates, mais également des champs textes.

 

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 16 Juin 2008

• #8

Re : Formater date en texte

Bonsoir,

Pierrejean a édité sa réponse, vois à la dernière ligne : motif=erreur.
Il avait probablement écrit une bêtise, ce qui en fait lui arrive assez rarement, donc il est tout pardonné.

Dommage que je ne puisse t'aider, les macros et moi nous ne faisons pas bon ménage.
Mais en faissant une recherche sous les anciens messages tu trouveras des tas de questions qui traitent ce problème.

abcd

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 17 Juin 2008

• #9

Re : Formater date en texte

Bonjour joquetino,

Tu peux joindre un fichier (sans données confidentielles) avec les différents cas de figures qui peuvent se présenter.

Ca nous permettra de tester avant de t'envoyer une proposition.

@+

 

Vote positif 0 Vote négatif

J

joquetino

Guest

• 17 Juin 2008

• #10

Re : Formater date en texte

Hello,

Voici un fichier : comme tu le vois, j'ai un champ à convertir en champ texte. Dans ce champ, il y a des dates, des chaines à un format personnalisé, et du texte. En passant par le menu données --> convertir, tout se passe bien. Dès que j'essaye d'automatiser via une macro, il me transforme le format des dates en format anglais.

Merci bcp

 

Pièces jointes

• ConvertiChamp.xls.xls

  22 KB · Affichages: 67

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Juin 2008

• #11

Re : Formater date en texte

Re

Un tantinet capillotractée cette macro !!

Code:

For n = 2 To Range("A65536").End(xlUp).Row
 If IsDate(Range("A" & n)) Then
   j = Day(Range("A" & n))
   m = Month(Range("A" & n))
   a = Year(Range("A" & n))
   Range("A" & n).NumberFormat = "@"
   Range("A" & n) = Format(j, "00") & "/" & Format(m, "00") & "/" & Format(a, "0000")
 Else
   Range("A" & n).NumberFormat = "@"
 End If
Next n

 

Vote positif 0 Vote négatif