• Initiateur de la discussion Initiateur de la discussion ivan27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ivan27

XLDnaute Occasionnel
Bonjour à tous,

J'utilise le modèle de jacques boisgontier pour comparer des listes de données.

https://www.excel-downloads.com/threads/comparaison-et-extraction-listes.182570/

J'ai un problème avec mes données importées car les dates ne sont pas reconnues.
Ce n'est pas une question de paramètres généraux car la liste d'origine fonctionne bien.

Une date de départ 01/04/2012 se transforme en 04/01/2012.

Si je rajoute dans le code :

Columns("REF COLONNE").NumberFormat = "dd/mm/yyyy"

l'affichage change dans la cellule uniquement mais il reste à l'ancien format dans la barre de formule.

Il est donc impossible par exemple de mettre en place un tri sur tableau

Merci pour votre aide,

Ivan
 

Pièces jointes

Re : Format dates

Bonsoir ivan27,

Si dans le fichier on affecte aux cellules H4:H7 le format 'Alignement horizontal => Standard', on s'aperçoit que les dates sont alignées à droite sauf celle de H6 (15/04/2012). Ce qui pourrait indiquer que la date en H6 n'est pas reconnu comme date. Ceci peut-être le symptome qu'à l'importation des données, Excel considérait les dates comme étant au format américain (mm/dd/yyyy) et non comme le format (jj/mm/aaaa). Le mois 15 n'existant pas, il a considéré que c'était du texte. Comme l'a dit chris le PB est vraisemblablement à l'import des données.

Si ce sont bien des dates au format américain, on peut les convertir: Sélectionner les cellules de la colonne date puis en passant par le menu 'Données / Convertir' à l'étape 3 choisir le format de colonne 'MJA'.
 
Dernière édition:
Re : Format dates

Bonsoir à tous,

Je vous joint un modèle des fichiers importés sur les onglets BD1 et BD2.
Sur ces deux fichiers, les immatriculations sont traitées après importation pour avoir un format identique avec ce code :

tablo = Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
If IsNumeric(Left(tablo(n, 1), 1)) Then
tablo(n, 1) = Replace(tablo(n, 1), "-", "")
For m = 1 To Len(tablo(n, 1)) - 1
neo = neo & Mid(tablo(n, 1), m, 1)
If IsNumeric(Mid(tablo(n, 1), m, 1)) And Not IsNumeric(Mid(tablo(n, 1), m + 1, 1)) Then
neo = neo & " "
End If
If Not IsNumeric(Mid(tablo(n, 1), m, 1)) And IsNumeric(Mid(tablo(n, 1), m + 1, 1)) Then
neo = neo & " "
End If
Next
tablo(n, 1) = neo & Right(tablo(n, 1), 1)
tablo(n, 1) = Replace(neo & Right(tablo(n, 1), 1), " ", " ")
neo = ""
Else
tablo(n, 1) = Replace(tablo(n, 1), " ", "")
For m = 1 To Len(tablo(n, 1)) - 1
neo = neo & Mid(tablo(n, 1), m, 1)
If Not IsNumeric(Mid(tablo(n, 1), m, 1)) And IsNumeric(Mid(tablo(n, 1), m + 1, 1)) Then
neo = neo & "-"
End If
If IsNumeric(Mid(tablo(n, 1), m, 1)) And Not IsNumeric(Mid(tablo(n, 1), m + 1, 1)) Then
neo = neo & "-"
End If
Next
tablo(n, 1) = Replace(neo & Right(tablo(n, 1), 1), "--", "-")
neo = ""
End If
Next n
Range("C2").Resize(UBound(tablo), 1) = tablo

La date de BD2 est traitée avec ce code :

Sub FormatDateHeureBD2()
For Each c In Worksheets("BD2").Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row)
c.Value = Int(c)
Columns("E:E").NumberFormat = "dd/mm/yyyy "
Next c
End Sub

et les formats numériques avec celui-ci :

Sub FormatNumBD2KmsCompteur()
For Each c In Worksheets("BD2").Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
c.Value = Val(c.Text)
Columns("F:F").NumberFormat = "###0.00"
Next c
End Sub

J'ai fait plusieurs tentatives d'importation et je n'ai plus d'idée. Les dates sur les fichiers d'origine sont bien au format français (mois d'avril)

Le problème vient probablement de la conversion du format DATE / HEURE de BD2...

Cdlt,

Ivan
 

Pièces jointes

  • BD1.txt
    BD1.txt
    494 bytes · Affichages: 30
Re : Format dates

Bonjour et merci Jacques,

Pour le format ça semble coller.
Par contre, sur le premier tableau (commun) seule la colonne date est importée (1 ligne trop haut et dans la colonne immatriculation).
Sur le second tableau une ligne trop haut également;
Le troisième tableau semble correct.
Te serait-il possible d'arranger cela ?
Cdlt,

Ne pas tenir compte de cette demande, j'ai trouvé mon erreur...
Encore merci

Ivan
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
571
Réponses
5
Affichages
1 K
Réponses
2
Affichages
1 K
Réponses
9
Affichages
1 K
Réponses
8
Affichages
1 K
Retour