Extraction de partie de feuilles

[Lafuria]

Bonjour,

Ce message a été posté par ailleurs sur une autre partie du forum. Autant pour moi, je me suis trompé d'interface...

J'ai cherché un peu partout mais je n'ai pas trouvé de réponses à une besoin simple dont la réponse l'est peut-être d'ailleurs aussi. Je suis pas très fortiche en Excel mais ça m'ennuie de ne pas trouver de réponse et de vous embêter pour m'aider à résoudre ce problème.

Alors voilà, selon le fichier joint, je voudrais séparer les familles de produits sur d'autres feuilles. Chaque famille devra comporter les éléments associées par colonne (type d'équipement, prix,...).
De plus, chaque feuille dédiée à chaque famille devra comporter les intitulés de base sur la 1ère ligne. Ceux-ci sont destinés à la création de TCD.
Autre contrainte, la feuille initiale sera alimentée régulièrement. Aussi, je souhaiterais que les feuilles par famille soient de fait, alimentées, automatiquement.

Pour résumer, il s'agit d'avoir une recopie automatique par famille de produit.

Sur le fichier, la feuille 1 correspond à la base ; la feuille 2 à un exemple d'extraction.

J'espère que vous aurez compris ma requête.

Un grand grand merci !!!

Lafuria

Edit Dan : enlevé majuscules dans titre du sujet

[dubois]

Bonjour,

La liste des familles est-elle figée (ici 9 familles) ?
ou faudra-il la réactualiser à chaque fois

Amicalement
Claude
édit:
Je ne connais pas bien les TCD, mais il me semble que tu pouvais le faire directement
avec la base actuelle

[Lafuria]

Bonjour,

A priori, le nb de familles sera tjs le même. elles seront juste alimentées par de nouvelles entrées avec les infos de type d'équipement, prix,...

J'ai un TCD pour la base initiale et qui fait office d'interface utilisateur. J'ai mis les éléments famille et type d'équipement en champ de page pour filtrer sauf que les 2 filtres ne se conditionnent pas entre eux. Du coup, le filtre type d'équipement regorge de libellés, ce qui n'est pas très ergonomique. Et donc, sans solution interne au TC vis-à-vis de ce pb, je me suis résolu à éclater chaque famille pour faire un TCD par famille tout en rentrant chaque nouvelle ligne sur un seul tableau global.

Bien à vous,

Lafuria

[dubois]

re,

Je te laisse le soin de nommer les feuilles,
mais il faut qu'elles soient placées en position 2 à xxx (derrière feuille "Base")
La macro réactualise la feuille "Listes"(après les feuilles d'extraction)

Code: Tout sélectionner

Sub CréeFeuilles()
'Macro par Claude Dubois pour "Lafuria" Excel-Pratique le 2 Sept 2010
Dim Lg%, i%
        Application.ScreenUpdating = False
        '---- réactualise la liste des familles ----
   With Sheets("Listes")
        Range("a1:a" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
        .Range("a1"), Unique:=True
        .Columns(1).Sort Key1:=.Range("a1"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False
        Lg = .Range("a65536").End(xlUp).Row
       
        '---- extractions ----
       For i = 2 To Lg
            With Sheets("Base")
                .Range("h1") = Sheets("Listes").Cells(i, 1)
                .Range("a1:e" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
                .Range("i1:i2"), CopyToRange:=Sheets(i).Range("a1:e1"), Unique:=False
            End With
        Next i
    End With
End Sub

Amicalement
Claude

[Lafuria]

J'ai essayé, cela marche très bien. Je vous en suis très gré, vous m'enlevez une grosse épine du pied.

Une dernière chose : si j'insère dans la base des nouvelles colonnes avec d'autres libellés, cela change t'il qqchose au code ? Si oui, ne vous en faites pas, je les mettrai après les colonnes existantes.

Ce que je vous ai demandé est un exemple dans lequel je ne pouvais pas donner certaines infos confidentielles. Il me fallait un exemple pour pourvoir l'adapter. Je pense que je saurai me débrouiller pour l'adapter.

Très cordialement,

LF

[dubois]

re,

Vaudrait mieux que tu me dise jusqu'à quelle colonne tu compte étendre la base,
Je corrige la macro en conséquence.
L'idéal serait d'ajouter 2 lignes en haut de la feuille "Base"

dis-moi
Claude

[Lafuria]

Bonjour Claude,

Excusez-moi pour le délai de réponse. J'ai qques soucis de connexion.

Voici sur ce fichier toutes les colonnes dont j'aurai besoin.

Bien à vous,

LF.

[dubois]

Bonjour,

Où sont les familles ?
merci d'envoyer un fichier un peu + sérieux !

Claude

[Lafuria]

Excusez-moi, je me suis trompé de fichier...

Pour des raisons de confidentialité, j'ai changé les noms commerciaux qui peuvent apparaître sur le fichier original.

Merci !

[dubois]

re,

Comme demandé précédemment, il faudrait ajouter 3 lignes en haut
pour l"emplacement boutons et critères
dis si ok ?

claude