Discussion :

[rominet64]

Bonjour aux membres du forum.
Je soumets un petit pb (casse tête pour moi !) de conversion en format date de données externes dans un tableau excel.
Les données sont déjà fournies sous forme de tableau excel comprenant des dates (format jj mmmm yyyy hh:mm:ss ) reconnues par excel, des valeurs monétaires, des libellés, des chiffres.
Tout serait ok si le soft qui génère ces tableaux n'avait pas la fâcheuse habitude de faire suivre les libellés de certains mois par un "." , ex:
"mai" est transmis par "mai", ce que excel comprend très bien
"avril" est transmis par "avr." ce que excel ne comprends pas.
J'ai essayé plusieurs méthodes par macro , notamment avec la fonction recherch/remplace . A chaque fois le point est bien retiré , mais le contenu de la cellule reste en texte qu'excel ne convertit pas (la fonction format ne donne rien ni le formatage direct dans la cellule);
Par contre si je me place dans la cellule et que je supprime le "." (del), à la validation (touche enter) excel converti automatiquement le contenu dans le format date attendu de la cellule.
J'ai essayé de traduire çà avec l’enregistreur de macro, mais cà ne donne rien.
Alors , si qq'un aune idée (de génie bien sûr !), je suis preneur d'une solution vba, car je dois convertir une colonne complète avant utilisation pour des statistiques.

[Raccourcix]

Bonjour

supprimer le . puis menu données, convertir, choisir date

sinon pour traiter des données provenant de sources externes, Power Query et plus adapté que VBA (menu données, récupérer et transformer)

Stéphane

[rominet64]

Bonjour

supprimer le . puis menu données, convertir, choisir date

sinon pour traiter des données provenant de sources externes, Power Query et plus adapté que VBA (menu données, récupérer et transformer)

Stéphane

merci Raccourcix!
j'ai essayé les 2 méthodes, la 1ère me donne une err sur la date après suppr du point, la 2è laisse les dates dans le format origine cad avec le point .
Là je sèche .....

[umfred]

quelle version d'Excel tu as ?
Si tu indiques en format de cellule ton format de date, en recherchant/remplaçant le . par rien, chez moi (excel 2016) le mois est convertit directement (avr. => avril)

[rominet64]

quelle version d'Excel tu as ?
Si tu indiques en format de cellule ton format de date, en recherchant/remplaçant le . par rien, chez moi (excel 2016) le mois est convertit directement (avr. => avril)

ok pour moi aussi , mais le format ne s'applique pas . J'essaie d'envoyer un exemple pour comprendre la situation, j'utilise une boucle pour parcourir la colonne :
1ère méthode -> résultat colonne 1
utilisation du code : Range("A" & ligne) = Replace(Range("A" & ligne), ".", "")
2è méthode -> résultat colonne 2
utilisation du code (à la suite de la ligne précédente): Range("A" & ligne) = Format(Range("A" & ligne), "dd/mm/yyyy hh:mm")
J'obtiens bien le format date voulu dans toute la colonne, mais pb pour certaines dates (??) la conversion fait une inversion entre le mois et le jour (chiffres en rouge).
J'ai pas réussi à trouver le bug ! Ah j'ai office2021 professionnel
Classeur1.xlsx

[Franc]

Salut, j'ai testé comme ceci sur ton classeur et ça fonctionne:

Code :

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

1
2
3
4
5
6
7
Sub ReplaceDots()
    Dim cell As Range
    For Each cell In Selection
        cell.Value = Replace(cell.Value, ". ", "/")
        cell.Value = Format(cell.Value, "mm/dd/yyyy hh:mm:ss")
    Next cell
End Sub

[rominet64]

Salut, j'ai testé comme ceci sur ton classeur et ça fonctionne:

Code :

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

1
2
3
4
5
6
7
Sub ReplaceDots()
    Dim cell As Range
    For Each cell In Selection
        cell.Value = Replace(cell.Value, ". ", "/")
        cell.Value = Format(cell.Value, "mm/dd/yyyy hh:mm:ss")
    Next cell
End Sub

AAhh !! je savais bien qu'à part moi, ce forum était plein de génies !!! merci Franc, çà marche nickel , j'y ai passé plusieurs heures alors que c'était simple ...