XL 2016 Mise en forme d'un export de logiciel dans un fichier Excel

Gils92 · 8 Octobre 2024

Bonjour à toustes,
Je récupère des données sous une forme inutilisable (Feuil1) et je voudrais les mettre en forme comme dans l'onglet Feuil2 avec une macro, sachant que l'export fait prés de 12.000 lignes.
Est-ce possible ?

sylvanu · 14 Novembre 2024

Bonjour,
Il suffit de remettre la date dans le bon sens :

VB:

Sortie(Ligne, 5) = Format(Ech, "mm/dd/yyyy")

sylvanu · 8 Octobre 2024

Bonjour Gils,
Un essai en PJ.
Mais vu votre BDD je pense qu'il y aura des soucis car la base n'est "pas propre" avec des lignes superflues, et aussi des N° bizarres comme "26Q, RUE ORDENER".
Il vous "suffira" d'améliorer la macro, l'architecture semble bonne.

goube · 9 Octobre 2024

Bonjour,
Un essai avec Power Query, à améliorer sans aucun doute.
Indiquer le chemin du fichier contenant les données brutes dans la Feuil1 en C2
Pour actualiser la requête, Onglet Données, Requêtes et connexions, Actualiser tout
Cordialement

Gils92 · 9 Octobre 2024

sylvanu à dit:
Bonjour Gils,
Un essai en PJ.
Mais vu votre BDD je pense qu'il y aura des soucis car la base n'est "pas propre" avec des lignes superflues, et aussi des N° bizarres comme "26Q, RUE ORDENER".
Il vous "suffira" d'améliorer la macro, l'architecture semble bonne.

Bonjour Sylvanu, ça m'a tout l'air de fonctionner, j'ai fait des contrôles sur plusieurs lignes, les Bis, Ter et Quater semblent être pris en charge par la macro, pas de décalage. Super, merci pour le boulot

Gils92 · 9 Octobre 2024

goube à dit:
Bonjour,
Un essai avec Power Query, à améliorer sans aucun doute.
Indiquer le chemin du fichier contenant les données brutes dans la Feuil1 en C2
Pour actualiser la requête, Onglet Données, Requêtes et connexions, Actualiser tout
Cordialement

Bonjour Goube, malheureusement, je ne comprends rien à Power Query, j'ai beau changer le chemin, je n'arrive pas relancer la requête comme vous l'indiquer, Excel me demande de reconstruire la combinaison de données. Je ne sais pas ce que ça veut dire

sylvanu · 9 Octobre 2024

Re,

Gils92 à dit:
Bonjour Sylvanu, ça m'a tout l'air de fonctionner

Je pense que sur votre "vrai" fichier il y aura certainement des erreurs, ne serait ce que parce que je ne filtre que : "Rue", "Avenue", "Chemin", "Impasse", "Boulevard"
S'il y avait "Place", "Chemin", "Lieu dit" ... ça ne marcherait pas.
S'il y avait des soucis, donnez un fichier avec juste toute la colonne A de votre fichier pour améliorer le filtrage.

Gils92 · 9 Octobre 2024

sylvanu à dit:
Re,

Je pense que sur votre "vrai" fichier il y aura certainement des erreurs, ne serait ce que parce que je ne filtre que : "Rue", "Avenue", "Chemin", "Impasse", "Boulevard"
S'il y avait "Place", "Chemin", "Lieu dit" ... ça ne marcherait pas.
S'il y avait des soucis, donnez un fichier avec juste toute la colonne A de votre fichier pour améliorer le filtrage.

Oui, effectivement, il manque des données sur certains types de voie, je n'avais pas remarqué.
Je n'ai pas de "Lieu dit" ni de "chemin" sur mon arrdt mais j'ai des "Allee, Place, Cite, Passage, Esplanade, Hameau, Parvis et Villa" potentiels. Je les ai rajoutés dans votre macro, je crois que ça fonctionne. Encore merci, c'est super

Gils92 · 9 Octobre 2024

Gils92 à dit:
Oui, effectivement, il manque des données sur certains types de voie, je n'avais pas remarqué.
Je n'ai pas de "Lieu dit" ni de "chemin" sur mon arrdt mais j'ai des "Allee, Place, Cite, Passage, Esplanade, Hameau, Parvis et Villa" potentiels. Je les ai rajoutés dans votre macro, je crois que ça fonctionne. Encore merci, c'est super

Par contre, je viens de me rendre compte qu'il y a un espace de trop entre l'extension (Bis, Ter...) et le début du type de voie, ce qui me renvoie un message d'erreur lorsque j'utilise un index equiv avec une autre base de données. Et là, je sais pas trop quoi corriger dans la macro

sylvanu · 9 Octobre 2024

Gils92 à dit:
il y a un espace de trop entre l'extension (Bis, Ter...) et le début du type de voie

Le problème est qu'en feuille 1 vous n'avez pas "43 BIS" mais "43 BIS "
L'espace est là, non un problème de macro.
Pour résoudre le problème, remplacez la ligne

VB:

Sortie(Ligne, 1) = Numéro & " " & Rue
par
Sortie(Ligne, 1) = Replace(Numéro & " " & Rue, "  ", " ")

Cela remplace les "double espaces" par un "simple espace".

Gils92 · 9 Octobre 2024

sylvanu à dit:
Le problème est qu'en feuille 1 vous n'avez pas "43 BIS" mais "43 BIS "
L'espace est là, non un problème de macro.
Pour résoudre le problème, remplacez la ligne

VB:

Sortie(Ligne, 1) = Numéro & " " & Rue par Sortie(Ligne, 1) = Replace(Numéro & " " & Rue, " ", " ")

Cela remplace les "double espaces" par un "simple espace".

C'est bon, ça marche, je crois que je peux clore le sujet. Merci encore pour tout ça

sylvanu · 9 Octobre 2024

Re,
La mise en vert permet de remonter la solution juste après votre demande pour éviter au futur lecteur de trouver la réponse rapidement.
Donc ce n'est pas votre #10 à mettre en vert mais le post #9 ou #2 à mettre en vert.

Préfixe "Résolu" et "Marquer comme solution"

Voici la nouvelle façon de faire suite à la mise à jour du 22/12/2020 : https://www.excel-downloads.com/threads/forums-aux-questions.20052158/ (obsolète suite à la mise à jour du 22/12/2020) Bonjour, Les personnes posant des questions dans le forum souhaitent souvent pouvoir indiquer que les...

excel-downloads.com

chris · 9 Octobre 2024

Gils92 à dit:
Bonjour Goube, malheureusement, je ne comprends rien à Power Query, j'ai beau changer le chemin, je n'arrive pas relancer la requête comme vous l'indiquer, Excel me demande de reconstruire la combinaison de données. Je ne sais pas ce que ça veut dire

Bonjour

De mon côté cela fonctionne parfaitement : je modifie le chemin et actualise. Testé sur 2010 et 365...
Comme tu ne postes même pas une copie du message...

goube · 9 Octobre 2024

Hello chris,

Merci pour le test.
Mais je pense qu'il faut vraiment étoffer la requête pour quelle soit fonctionnelle.
Table de correspondance pour le nom des voies et les codes postaux entre autre.
Bonne continuation
Cordialement

Gils92 · 23 Octobre 2024

Gils92 à dit:
Bonjour à toustes,
Je récupère des données sous une forme inutilisable (Feuil1) et je voudrais les mettre en forme comme dans l'onglet Feuil2 avec une macro, sachant que l'export fait prés de 12.000 lignes.
Est-ce possible ?

sylvanu à dit:
Re,
La mise en vert permet de remonter la solution juste après votre demande pour éviter au futur lecteur de trouver la réponse rapidement.
Donc ce n'est pas votre #10 à mettre en vert mais le post #9 ou #2 à mettre en vert.

Préfixe "Résolu" et "Marquer comme solution"

Voici la nouvelle façon de faire suite à la mise à jour du 22/12/2020 : https://www.excel-downloads.com/threads/forums-aux-questions.20052158/ (obsolète suite à la mise à jour du 22/12/2020) Bonjour, Les personnes posant des questions dans le forum souhaitent souvent pouvoir indiquer que les...

excel-downloads.com

Bonjour, je viens de me rendre compte que lorsque la colonne A est vide (sans civilité) la ligne est supprimée. Les sociétés n'apparaissent donc plus après le lancement de la macro, je ne vois pas dans la macro nettoyage où cela peut ce produire.

sylvanu · 23 Octobre 2024

Bonjour,
Peut être en modifiant cette ligne :

VB:

ElseIf T(N, 2) <> "" And T(N, 3) <> "" Then

On regarde non pas les colonnes A et C mais les colonnes B et C.

XL 2016 Mise en forme d'un export de logiciel dans un fichier Excel

Gils92

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

goube

XLDnaute Accro

Pièces jointes

Gils92

XLDnaute Nouveau

Gils92

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Gils92

XLDnaute Nouveau

Gils92

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Gils92

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Préfixe "Résolu" et "Marquer comme solution"

chris

XLDnaute Barbatruc

goube

XLDnaute Accro

Gils92

XLDnaute Nouveau

Préfixe "Résolu" et "Marquer comme solution"

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires