Macro

Résolu/Fermé

Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 28 janv. 2010 à 12:14
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 28 janv. 2010 à 14:00

Bonjour,
Quelle macro permet de faire passer le texte en A1 de "280101" à "28/01/01"?

A voir également:

Macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Macro recorder - Télécharger - Confidentialité
Telecharger macro nblettre.xla - Forum Bureautique

10 réponses

Réponse 1 / 10

OOoForum Messages postés 3871 Date d'inscription jeudi 20 mars 2008 Statut Membre Dernière intervention 10 juin 2024 960
28 janv. 2010 à 13:19

Pas besoin de macro, il faut formater la cellule en date.

Réponse 2 / 10

Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 369
28 janv. 2010 à 13:23

???

Réponse 3 / 10

Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 369
28 janv. 2010 à 13:24

Si tu parles de mettre le format de cellule en date ça ne fonctionne pas car 280101 ne correspond pas au28/01/01

Réponse 4 / 10

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
28 janv. 2010 à 13:25

Salut,
Formater en date nous donne, pour 280101, 20/11/2666, (sauf si tu formates ta cellule avant saisie...) je doute que ce soit ce que veux farfadet...
Par formule déjà (le temps que je regarde une macro...) :
=GAUCHE(A1;2) & "/" & STXT(A1;2;2) & "/" & DROITE(A1;2)

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 369
28 janv. 2010 à 13:25

C'est pourquoi il me faut une macro

Réponse 6 / 10

Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 369
28 janv. 2010 à 13:34

Alors? Pas de solution?

Réponse 7 / 10

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
28 janv. 2010 à 13:39

Re-
Macro 1 : ne permet pas les calculs entre dates :

Range("A1") = Left(Range("A1"), 2) & "/" & Mid(Range("A1"), 2, 2) & "/" & Right(Range("A1"), 2)

Macro 2 : permets les calculs :

Dim jour As String, annee As String
Dim datedujour As String, mois As String
jour = Left(Range("A1"), 2)
mois = Mid(Range("A1"), 3, 2)
annee = Right(Range("A1"), 2)
datedujour = jour & "/" & mois & "/" & annee
[A1] = CDate(datedujour)

@ + Farfa

EDIT : je te trouve très impatient aujourd'hui...

Réponse 8 / 10

Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 369
28 janv. 2010 à 13:40

Je teste et te dis si ça me va.

Merci bien

Réponse 9 / 10

Le Pingou Messages postés 12187 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 14 novembre 2024 1 449
28 janv. 2010 à 13:41

Bonjour,
Vous pouvez tirez la formule de pijaku sur le nombre de ligne nécessaire !
La macro n'est vraiment pas nécessaire !

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
28 janv. 2010 à 13:43

SAlut Le pingou,
Tout à fait d'accord avec toi. Le plus simple reste la solution avec formule. Cependant connaissant farfadet, il doit vouloir intégrer ce code à une macro de trois cent lignes, ou à un moment donné il a besoin de convertir A1...
Il nous confirmera (ou infirmera) cela à son retour.
Bonne journée

Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 369 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
28 janv. 2010 à 13:48

hé hé hé pijaku! En plein dans le mille ou presque.

Ca marche nickel (jai du adapter vu la macro créée auparavant).

Merci beaucoup

Le Pingou Messages postés 12187 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 14 novembre 2024 1 449 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
28 janv. 2010 à 13:57

Bonjour pijaku,
Désolé j'ai pas vue les postes.
Il y ajuste une petite correction de votre formule pour le STXT(A1;3;2), le n° départ est le 3 et non le 2
sinon on a 280101 ==> 28/80/01

Réponse 10 / 10

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
28 janv. 2010 à 14:00

Bien sur... Merci de votre vigilance...
Et idem pour la macro...

Range("A1") = Left(Range("A1"), 2) & "/" & Mid(Range("A1"), 3, 2) & "/" & Right(Range("A1"), 2)

Dim jour As String, annee As String
Dim datedujour As String, mois As String
jour = Left(Range("A1"), 2)
mois = Mid(Range("A1"), 3, 2)
annee = Right(Range("A1"), 2)
datedujour = jour & "/" & mois & "/" & annee
[A1] = CDate(datedujour)

--
Cordialement, et ..... Bonne Année, mes meilleurs voeux pour 2010!!!
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --

Discussions similaires

faire une boucle sans VBA

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro

Copie automatique tableau Excel sans macro

tri automatque sur excel sans créer de macro