VBA macro pour changer format de la date [Fermé]

Signaler
Messages postés
21
Date d'inscription
mercredi 24 octobre 2012
Statut
Membre
Dernière intervention
6 novembre 2012
-
Messages postés
21
Date d'inscription
mercredi 24 octobre 2012
Statut
Membre
Dernière intervention
6 novembre 2012
-
Bonjour à tous,

Je suis chargé d'une gestion de base de données et dans une de mes colonnes excel j'ai une date au format aaaa/mm/jj et je voudrais, à l'aide d'une macro, mettre la date sous la forme jj/mm/aaaa... Est-ce que quelqu'un aurait une idée?

Merci beaucoup!

10 réponses

Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
299
Bonjour,

Nul besoin de macro...

Sélectionne ta colonne, puis "Données/Convertir"

Suivant-Suivant, puis à l'étape 3, sélectionne AMJ dans le menu "Date"

Et voili....

Bon courage
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
21
Date d'inscription
mercredi 24 octobre 2012
Statut
Membre
Dernière intervention
6 novembre 2012

Merci pour la rapidité de la réponse! Je ne dois pas avoir une bonne version... Je ne vois pas convert dans l'onglet data...
Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
299
Re-,

Quelle version d'Excel utilises-tu?
Messages postés
21
Date d'inscription
mercredi 24 octobre 2012
Statut
Membre
Dernière intervention
6 novembre 2012

2007. Je vois du tri et filtrage, des outils pour consolider, valider, analyser etc. Puis des outils pour grouper dégrouper etc.
Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
299
Dans le ruban "Données", rubrique "Outils de données" (du moins sous 2010)
Messages postés
21
Date d'inscription
mercredi 24 octobre 2012
Statut
Membre
Dernière intervention
6 novembre 2012

oui en effet dans le 2010... Si quelqu'un a une idée je suis preneur... Et si besoin de plus de précision pour répondre à la question!

Merci à tous ceux qui pourront m'aider
Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
299
Re-,

Cela veut-il dire que tu n'as pas trouvé la commande "Convertir"?
Normalement, elle y est par défaut....

regarde les captures d'écran

https://www.cjoint.com/?BKgpIxcmSrA

Au cas où, clique sur l'icone "Office", en haut à gauche

Puis sur "Options Excel", en bas à droite

Sélectionne "Personnaliser le ruban"

Dans la case de droite "Onglets principaux", développe le menu "Données", et vérifie que la commande "Convertir" n'y apparait pas...

Essaie en réinitialisant (en cliquant sur le bouton du bas, une fois que tu as sélectionné "Outils de données")

sinon, dans la case de gauche, tu sélectionnes "Toutes les commandes", tu choisis "Convertir" (comme sur la photo), puis "Ajouter"

Bon courage
Messages postés
21
Date d'inscription
mercredi 24 octobre 2012
Statut
Membre
Dernière intervention
6 novembre 2012

Re cousinhub!

C'est exactemeent ce que j'etais en train de faire quand j'ai reçu ton email je suis allé à Convert dans le menu déroulant et il n'y avait pas :S.... Je dois avoir la poisse!

Depuis tout à l'heure je cherche la commande, je vais continuer à chercher encore mais à priori pas dispo...

Ca me rend fou... D'autant plus que tu te fais ch.... à m'envoyer des copies d'écran pour m'aider...

Merci beaucoup je continue ;)
Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
299
D'autant plus que tu te fais ch.... 


Pas du tout, un forum d'entraide, ça sert aussi à ça....

Sinon, au cas où tu ne trouverais pas cette commande, tu peux essayer ce code (PS, fais sur une copie, auparavant)

Sub ee()
Dim Cel As Range
For Each Cel In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    If IsDate(Cel) Then Cel = Format(Cel, "mm/dd/yyyy")
Next Cel
End Sub


Ajuste la plage (Si colonne G, tu remplaces par Range("G1:G" & Cells(Rows.Count, "G").End(xlUp).Row)

Bon courage
Messages postés
21
Date d'inscription
mercredi 24 octobre 2012
Statut
Membre
Dernière intervention
6 novembre 2012

Merci! J'essaye ça tout de suite