Transformation des dates quand application macro...???

Fermé

Modisdonc Messages postés 8 Date d'inscription lundi 3 avril 2017 Statut Membre Dernière intervention 26 avril 2017 - 26 avril 2017 à 15:11
Modisdonc Messages postés 8 Date d'inscription lundi 3 avril 2017 Statut Membre Dernière intervention 26 avril 2017 - 26 avril 2017 à 16:59

Bonjour à tous,
Je suis en train de monter une macro pour automatiser la mise en forme de données.
Le problème qui semble connu :
Dans ma première colonne ("Date"), j'ai des dates sous format : 'dd/mm/aaaa.
J'applique donc une formule pour supprimer le " ' " et les " " mais la macro transforme me date en mm/dd/aaaa...
Je chercher la solution mais rien ne fonctionne.

Voici mon code :

Sub FormatDates()
    Sheets("Données brutes").Select
    Cells.Replace What:="'", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Pouvez-vous m'aider ?

A voir également:

Transformation des dates quand application macro...???
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Application gps sans internet - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

1 réponse

Réponse 1 / 1

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
26 avril 2017 à 15:19

Bonjour,

Utilise l'instruction :

Selection.NumberFormat = "dd/mm/yyyy;@"

K

Modisdonc Messages postés 8 Date d'inscription lundi 3 avril 2017 Statut Membre Dernière intervention 26 avril 2017
26 avril 2017 à 15:36

Voici le code que j'ai rentré :

 Sub FormatDates()
    Sheets("Données brutes").Select
    Cells.Replace What:="'", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Columns("A:A").Select
    Selection.NumberFormat = "dd/mm/yyyy;@"
End Sub

J'ai toujours le même problème. Le 9 mars devient le 3 septembre...

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20 > Modisdonc Messages postés 8 Date d'inscription lundi 3 avril 2017 Statut Membre Dernière intervention 26 avril 2017
Modifié le 26 avril 2017 à 16:47

Bonjour,

Oui, je comprend, puisque l'instruction Cells.Replace formatte la cellule visé.

Il te faut plutôt balayer la colonne et formatter la cellule en capturant le
contenu dans une variable, tu effectue le formattage sur la variable,
tu formatte la cellule avec l'instruction que je t'ai fournit et enfin tu réaffecte la variable à la cellule.

Le problème vient de l'environnement de Microsoft qui veut absolument
contrôler la Culture "Langue et clavier" de ton environnement.

Il y a du bon et du mauvais dans toute chose.
Les instructions toute faite sont parfois à contre-courant.
Dans ces cas précis, vaut mieux effectuer le travail soi-même par
programmation.

K

Modisdonc Messages postés 8 Date d'inscription lundi 3 avril 2017 Statut Membre Dernière intervention 26 avril 2017
26 avril 2017 à 16:59

Alors là, merci... mais cela dépasse largement mes compétences...
Je suis bien incapable de faire ce que tu préconises.

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

Impossible d'ouvrir des liens via mon Samsung A71

Discussions similaires

Newsletters