Discussion :

[Walt51]

Bonjour,
J'aimerai automatiser une action grâce à une macro.
J'ai une nomenclature de base;

Colonnes:

Rep; Désignation; Famille; Matière; Traitement-finition; Tarif; Qté


Actuellement, pour lancer mes consultations aux fournisseurs je découpe cette nomenclature "Total" en plusieurs listes en fonction de la famille.
Pour se faire, je met un "filtre automatique" et au niveau de la colonne "Famille" je sélectionne puis copie et coller dans une nouvelle feuille que je renomme selon la famille.


Quelqu'un a t'il une idée pour un code me permettant de réaliser cette opération?

=> chercher dans la colonne C toutes le lignes ayant la même famille
=> copier ces lignes dans un nouvelle feuille et renommer la feuille avec le nom de la famille
=> recommencer l'opération pour chaque familles de la nomenclature de base

Merci,Walt

[illight]

Un tableau croisé dynamique ne répondrait pas à ta demande ?

[Marc-L]

Bonjour,

ou bien rien qu'en utilisant l'Enregistreur de macro pour se donner une base de code …

[Walt51]

Bonjour,

ou bien rien qu'en utilisant l'Enregistreur de macro pour se donner une base de code …

Bonjour,
Après réflexion, je me rends compte que l’enregistreur de macro ne me permettra pas à lui seul de mettre au point mon code.
Voici une partie du code obtenu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
'Exporter Unité d'usinage
ActiveSheet.Range("$A$1:$M$27").AutoFilter Field:=2, Criteria1:= _
"Unité d'usinage"
Range("A2:Z900").Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
 
Sheets("Feuil2").Name = "Unité d'usinage"
Sheets("TOTAL").Select
ActiveSheet.Range("$A$1:$M$27").AutoFilter Field:=2

Ici, je viens sélectionner le filtre de la colonne « Famille » et choisi "Unité d'usinage"
=>PB si dans une autre nomenclature à traiter, il n’y a pas de pièce avec comme famille "Unité d'usinage" le code ne fonctionnera pas.
Comme je le disais dans ma demande initiale il faut raisonner de la façon suivante
=> chercher dans la colonne C toutes les lignes ayant la même famille, ex "Unité d'usinage"
Ou "Unité de tôlerie"

Pour info:
- La colonne Famille est la B
- La feuille de base s'appelle "TOTAL"

=> copier ces lignes dans une nouvelle feuille
=> renommer la feuille avec le nom de la famille traité
=> recommencer l'opération pour chaque familles de la nomenclature de base

Quelqu’un sait-il comment je peux m’y prendre ?

Merci, Walt

[Marc-L]

=>PB si dans une autre nomenclature à traiter,
il n’y a pas de pièce avec comme famille "Unité d'usinage" le code ne fonctionnera pas.

Ah bon ? Et pourquoi donc ?

[Walt51]

Ah bon ? Et pourquoi donc ?

Effectivement, il me crée une feuille par famille et ne met rien dedans si la famille n'existe pas.
Donc il me crée toutes les feuilles et certaines sont vides.
Il faudrait donc pouvoir supprimer les feuilles vides (inutiles)
Connais-tu un code pour supprimer toutes les feuilles vides du classeur?
Ou y a t'il mieux à faire?

Merci

[Walt51]

Un tableau croisé dynamique ne répondrait pas à ta demande ?

Non ce n'est pas ce que je cherche à obtenir.
Merci quand même