OVH Cloud OVH Cloud

date

4 réponses
Avatar
couffignal.j
Salut.
Je voudrais avoir a écrire 210205 dans une cellule excel, et qu'elle se
transforme en 21/02/2005. Quel est le code VBA
Merci

4 réponses

Avatar
Francois
Salut.
Je voudrais avoir a écrire 210205 dans une cellule excel, et qu'elle se
transforme en 21/02/2005. Quel est le code VBA
Merci




Bonsoir,

Un truc de ce genre (?), à adapter.

Cordialement,

Avatar
anonymousA
bonsoir,

pas besoin de code VBA pour ca. Si l'écriture de la séquence numérique
se présente toujours sous la forme séquence de 2 chiffres pour le jour ,
idem pour le mois et l'anné et qu'on suppose qu'il s'agit de dates du
21e siecle, en mettant en format texte l'entrée des séquences numériques
et en format date la cellule de réception de la formule, on peut écrire,
en A2 p.e pour une séquence numérique saisie en A1

ÚTE("20" & DROITE(A1;2);DROITE(GAUCHE(A1;4);2);GAUCHE(A1;2))

et l'écriture de la séquence numérique sous forme JJMMAA ( au format
texte je me répète) se transforme en date suite à formule.

A+

Salut.
Je voudrais avoir a écrire 210205 dans une cellule excel, et qu'elle se
transforme en 21/02/2005. Quel est le code VBA
Merci




Avatar
Francois
Salut.
Je voudrais avoir a écrire 210205 dans une cellule excel, et qu'elle se
transforme en 21/02/2005. Quel est le code VBA
Merci


Re, oops j'ai oublié le copier coller !


Sub Trdate()
a = 210205
B = DateSerial(Right(a, 2), _
Mid(a, 3, 2), _
Left(a, 2))
MsgBox B
End Sub

:-{

Avatar
Patrick BASTARD
Bonjour, *anonymousA*
J'ai lu ton post 421a2667$0$3146$
avec le plus grand intéret :

Merci,

J'ai encore appris quelque chose aujourd'hui.
;-)

Patrick.

bonsoir,

pas besoin de code VBA pour ca. Si l'écriture de la séquence
numérique se présente toujours sous la forme séquence de 2 chiffres
pour le jour , idem pour le mois et l'anné et qu'on suppose qu'il
s'agit de dates du 21e siecle, en mettant en format texte l'entrée
des séquences numériques et en format date la cellule de réception de
la formule, on peut écrire, en A2 p.e pour une séquence numérique
saisie en A1
ÚTE("20" & DROITE(A1;2);DROITE(GAUCHE(A1;4);2);GAUCHE(A1;2))

et l'écriture de la séquence numérique sous forme JJMMAA ( au format
texte je me répète) se transforme en date suite à formule.

A+

Salut.
Je voudrais avoir a écrire 210205 dans une cellule excel, et qu'elle
se transforme en 21/02/2005. Quel est le code VBA
Merci