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

[Gils92]

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]

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]

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]

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]

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]

Re,

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]

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]

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]

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

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

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

 

[Gils92]

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

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]

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]

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]

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]

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 ?

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]

Bonjour,
Peut être en modifiant cette ligne :

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

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