XL 2010 Classer à l'aide d'un bouton "macro" par ordre alphabétique et avec calcul.

[DAVID-44-]

Bonjour à tous,
J'ai besoin de votre aide, car je souhaiterais si c'est possible faire un tri par ordre alphabétique avec calcul afin d'éviter les doublons sur une feuille.
Sur le fichier que je joins, il y a une feuille avec des "PRODUITS" qui se rajoute automatiquement dans la feuille "COMMANDE".
J'aimerais que cette liste se classe à l'aide d'un bouton, par ordre alphabétique, mais aussi qu'elle élimine les doublons (le persil) et qu'elle calcule les deux lignes (ex : ligne 14 et 20 au lieu d'avoir deux lignes avec persil 1 X 250 G le résultat : une ligne avec persil 2 X 250 G.)
J'imagine que pour certaines lignes (crème par exemple - ligne 32/38/39....) cela sera plus difficile.
Merci de votre aide.
Bonne soirée.
David.

 

[DAVID-44-]

Re-Bonjour,
Je viens d'essayer, mais j'ai une erreur :
DL = Sheets("PRODUITS").Range("B65500").End(xlUp).Row
Je ne sais pas quoi faire !!!!

Du coup, j'ai réalisé deux classeurs qui représentent ce que j'ai en réalité.
Merci de votre coup de main.
Bonne soirée.

 

[sylvanu]

C'est impossible.
Vos deux fichiers sont des xlsx, sans macros. Et les fichiers n'ont pas la même structure que le précédent.
Je ne peux strictement rien en faire.

 

[DAVID-44-]

Ha ok !
Il faut que j'arrive à mettre les deux feuilles dans le même classeur ?

 

[sylvanu]

Je vous parle des macros, pas des feuilles.
et le fichier doit être en xlsm pour que les macros puissent être activées.

 

[DAVID-44-]

D'accord, je vais travailler dans ce sens !
Merci pour tous ces conseils.
Bonne soirée.

 

[sylvanu]

Vous aviez un fichier qui marchait. Pourquoi aller le bricoler et le renommer avec une extension xlsx ?

 

[DAVID-44-]

En fait le but est de faire des tris sur plusieurs feuilles pour que cela soit plus simple.

 

[sylvanu]

La macro VBA est faite uniquement pour la structure du fichier donné.
Si cette structure change alors il vous faut reprendre les macros en conséquence.