Discussion :

[BBe8127]

Bonjour.

J'hérite dans un tableau excel de dates comportant un petit triangle sombre en haut à gauche de la cellule.
La date est cadrée à gauche comme un texte et ne répond à aucune sollicitation de format (date année 4 ch. , nombre).
Quand le sélectionne la cellule, un petit panneau apparait avec une légende :
"Cette cellule contient une date dont l'année correspond à deux chiffres"
Quand je clique sur le panneau, j'ai un menu dont certaine options permettent de corriger ce problème : passage à 4 chiffres et format date normal (transformable en nombre).

Toutes mes tentatives pour trouver un code VBA me permettant de faire la même chose sont restées vaines.

Donc je crie AU SECOURS ! ! ! !

Merci d'avance à celui qui comme moi ... aura cherché, mais mieux que moi ... aura trouvé.

Cordialement.
Bernard

[zazaraignée]

Salut

As-tu essayé d'enregistrer une macro pendant que tu fais les opérations que tu décris: clic sur le menu, conversion de la date ?

[BBe8127]

Boujour,

et merci de ta réponse.

Oui, c'est la première chose que j'ai faite.
Ca me donne une instruction en "Formula R1C1" qui permet une transformation en date 10 chiffres mais qui ne peut ensuite etre transformée en nombre.
C'est du texte.
Le format ne peut pas être changé.

That is my problem!!!

Coerdialement.
Bernard

[argyronet]

Bonjour,

Le problème des fichiers "Texte" reste et restera...
Solution 1
Copie ta feuille de classeur et travaille sur la copie...
Sélectionne la colonne incriminée
Va sur Données/Convertir option Largeur Fixe...
Clique 2 fois sur suivant... Coche Date Puis sur Terminer

Solution 2
Créé une fonction qui convertie tes dates...

Argy

[BBe8127]

Merci à argyronet et à ouskel'n'or.

Je vais essayer vos suggestions ... et je vous tiens au courrant.

A+
Bernard

[random]

1 essaye de connaitre le type de donnée avec estnum(macellule)

si la cellule est du texte transforme en date
aammjj
050712 tu transformes comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=DATEVAL(DROITE(I128;2) & "/" & STXT(I128;3;2)& "/20" & GAUCHE(I128;2))

[BBe8127]

Merci à tous.

Mon problème est réglé.

___________________

ouskel'nor :

ta solution transforme bien la date 8 car en date 10 car, mais cela reste toujours du texte et ne peut servir à des calculs.

random :

c'est une des première choses que j'avais essayè - reconstituer la date - ça ne donne rien d'intéresant.

argironet :

c'est toi qui m'a sorti de la m...
Ta solution est la bonne. En exécutant la manip tout en créant une macro, on obtient le code suivant (revu à ma sauce) :

Cells(L, C).Select
Selection.TextToColumns , _
DataType:=xlFixedWidth, FieldInfo:=Array(0, 4), _
TrailingMinusNumbers:=True

qui me donne une date avec un vrai équivalent nombre etc... etc...

CA MARCHE!!!

___________________

Encore une fois merci à tous.

Cordialement
Bernard