Extraction de partie de feuilles

[Lafuria]

Bonjour Claude,

Je n'y vois pas d'inconvénient.

Merci encore,

LF

[dubois]

Bonjour,

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

Code: Tout sélectionner

Sub CréeFeuilles2()
'Macro par Claude Dubois pour "Lafuria" Excel-Pratique le 6 Sept 2010
Dim Lg%, i%
        Application.ScreenUpdating = False
        '---- réactualise la liste des familles ----
   With Sheets("Listes")
        Range("d4:d" & [d65000].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
    End With
        '---- extractions ----
       For i = 2 To Lg
            With Sheets("Données")
                .Range("i1") = Sheets("Listes").Cells(i, 1)
                .Range("a4:j" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
                .Range("j1:j2"), CopyToRange:=Sheets(i).Range("a1:j1"), Unique:=False
            End With
        Next i
End Sub

Amicalement
Claude

[Lafuria]

Merci de vos efforts, Claude. Cependant, sans vouloir trop vous embêter, une dernière petite chose, j'ai modifié les noms des classeurs (au nom de chaque famille) et, de fait modifié le code pour afficher le nom de la Feuille Armoire-Coffret en lieu et place de la feuille 2.
J'ai écrit ceci cependant ça ne fonctionne pas. Il doit y avoir un pb de syntaxe :

'---- extractions ----
For i = Armoire-Coffret To Lg

en lieu et place de :

'---- extractions ----
For i = 2 To Lg

Désole de vous enquiquiner, j'ai des connaissances faibles en matière de VB.

LF

[dubois]

Non, les extractions doivent commencer à la feuille 2 (derrière "Données")

[Lafuria]

ok, compris.

Un grand merci, Claude !

[dubois]

re,

Peux-tu nous dire l'intérêt de faire çà ?

Claude

[Lafuria]

En effet, c'est intéressant pour les intervenants du forum.

A vrai dire, j'ai voulu directement aborder une solution alternative avec vous en éludant le problème primaire que je ne suis pas arrivé à résoudre. Lequel est le suivant : la base principale me sert originellement à créer un TCD dont l'usage est un interface utilisateur. Il est assez simple : l'utilisateur choisit un type d'équipement en champ de page pour obtenir un prix moyen et les informations associées. Sauf que le nombre de type d'équipement est trop important et j'ai dû décomposer les types d'équipement en famille en pensant que le filtre famille (également en champ de page) conditionnerait le type d'équipement par famille (comme un filtre simple sur une feuille simple). Or, ce n'est pas le cas, même si on choisit une famille, tous les types d'équipement apparaissent.
Et pour des raisons d'ergonomie et de mise en forme, je dois laisser les filtres de choix en champs de page.

Donc, j'ai envisagé de faire un TCD par famille. D'où, l'utilisation de votre code car alimenter famille par famille est peu aisé. Alimenter la base doit se faire simplement pour celui qui gère cette base.

J'ai déjà demandé sur ce forum et même sur d'autres, et personne n'a pu trouver de solutions à cette histoire de filtres conditionnels en champ de page. Dommage, cette fonctionnalité n'a pas été développé par MS alors que ça aurait été si efficace.

Voilà voilà !

LF

[dubois]

re,

Personnellement j'aime pas trop les TCD,
j'aurai fait comme ci-joint (une simple liste)

Claude

[Lafuria]

Oui, c'est intéressant mais je dois laisser des lignes vides pour chaque TCD correspondant à une famille, c'est pourquoi je préfère les avoir sur des feuilles distinctes.

Je dois faire des TCD pour des questions de traitement de données chiffrés plus rapide et pour une question de présentation.

Merci d'avoir réfléchi à mon problème et d'y avoir apporté une solution.

[dubois]

ok, Pour solder le poste c'est ici