Bonjour toute la communauté,
Je travaille actuellement sur un fichier excel qui fait des extractions de requête d'une base de données Access.
Le problème ce que mon fichier contient plusieurs fois les mêmes commandes. Je m'explique une commande pouvant avoir plusieurs articles, celle-ci se répète autant de fois qu'il y'a d'article.
Pour éviter ceci je voulais savoir s'il y'avais un moyen de regrouper tous les articles par rapport à la commande ou de les fusionner. C'est à dire qu'en face de chaque commande les articles apparaissent dans une cellule.
Je ne sais pas si c'est clair ce que j'ai écrit :/
Merci d'avance pour votre aide :)
Mon fichier exemple ici : http://www.cjoint.com/c/FEnlxf2Cz8X
Tu copies tout le contenu du module1 dans le module de ton application.
En début de la procédure "Compilation" assure-toi que le nom de l'onglet de la feuille où sont les données correspond au nom de la feuille à traiter dans ton application.
With Worksheets("Feuil1") '<<----ICI Feuille = .Name
La procédure de charge d'enlever le caractère "Chr(160)". Nul besoin de l'enlever avant de lancer la procédure.
Évidemment, cela va augmenter la durée de traitement.
MichD
Bonjour MichD, Merci énormément pour ton aide, ta macro fonctionne super bien :))). C'est exactement ce que je voulais. Lindt
Le vendredi 13 Mai 2016 à 13:32 par MichD :
Mon fichier exemple ici : http://www.cjoint.com/c/FEnlxf2Cz8X
Tu copies tout le contenu du module1 dans le module de ton application.
En début de la procédure "Compilation" assure-toi que
le nom de l'onglet
de la feuille où sont les données correspond au nom de la feuille
à
traiter dans ton application.
With Worksheets("Feuil1") '<<----ICI
Feuille = .Name
La procédure de charge d'enlever le caractère
"Chr(160)". Nul besoin de
l'enlever avant de lancer la procédure.
Évidemment, cela va augmenter la durée de traitement.
MichD
Bonjour MichD,
Merci énormément pour ton aide, ta macro fonctionne super bien :))).
C'est exactement ce que je voulais.
Lindt
Mon fichier exemple ici : http://www.cjoint.com/c/FEnlxf2Cz8X
Tu copies tout le contenu du module1 dans le module de ton application.
En début de la procédure "Compilation" assure-toi que le nom de l'onglet de la feuille où sont les données correspond au nom de la feuille à traiter dans ton application.
With Worksheets("Feuil1") '<<----ICI Feuille = .Name
La procédure de charge d'enlever le caractère "Chr(160)". Nul besoin de l'enlever avant de lancer la procédure.
Évidemment, cela va augmenter la durée de traitement.
MichD
Bonjour MichD, Merci énormément pour ton aide, ta macro fonctionne super bien :))). C'est exactement ce que je voulais. Lindt
