Tri sur plusieurs feuilles avec 1 condition sur une feuille récap

Le 22/11/2018 à 09:29

Bonjour,

Au secours, je commence à me ramollir du bulbe sur un problème excel que je trouvais simple.....à priori:

ma problématique :

j'ai plusieurs feuilles de groupes constitués de personnes participant à des stages avec dans une colonne une lettre désignant s'ils sont demi-pensionnaires, pensionnaires et/ou végans

donc

1 feuille groupe 1 avec x végan, y pension , z 1/2 pension

1 feuille groupe 2 avec x végan, y pension , z 1/2 pension

......etc

Il peut y avoir aussi des feuilles SANS aucun Vegan, mais qu'il faudra néanmoins prendre en compte

et une feuille récap trimestrielle qui rapatrie les données des végan des feuilles précédentes

j'ai essayé plein de formules comme recherche v, index, equiv,....

On m'a même proposé une solution sur un autre forum, mais j'ai beau la décrypter je ne la comprends pas.

dans l'exemple joint il n'y a que 4 feuilles mais dans la réalité çà peut monter à 52 feuilles ....

merci de votre aide

15vegan.xlsx (24.96 Ko)

Le 22/11/2018 à 09:34

Bonjour,

C'est marrant de vouloir séparer les informations et ensuite de vouloir rassembler

A+

Le 22/11/2018 à 09:43

les feuilles s'ajoutent au fur et à mesure des nouveaux stages

du coup il faut ajouter la formule avec les coordonnées de la nouvelle feuille dans celle des récaps

Le 22/11/2018 à 09:57

Re,

Les feuilles ne s'ajoutent pas toute seule, si !?

Si-joint le fichier tel qu'il devrait être conçu

12didlalalere-suivi.xlsx (14.41 Ko)

Le 22/11/2018 à 10:29

merci pour l'essai de présentation.....mais .....MAIS ce n'est pas du tout comme çà que çà se passe..

les feuilles (groupe 1, groupe 2, groupe3 ) s'ajoutent au fur et à mesure de la création des stages qui sont vendus par la commerciale (c'est elle qui crée la nouvelle feuille)(il peut y avoir jusqu'à 15 à 20 stages par trimestre

Puis donne le fichier à l'intendant qui doit avoir, lui, une vision du nombre de 1/2 pensionnaires de pensionnaires et de végans.

c'est ce dernier qui agit sur la feuille récap et qui ajoutera la formule magique qui ira chercher les données dans les nouvelles feuilles.

est-ce plus compréhensible ?

Le 22/11/2018 à 11:28

Re,

Oui c'est plus compréhensible en quelque sorte

La commerciale passe par un logiciel ou simplement Excel, sinon c'est à elle de faire correctement son travail.

Pour ma part, je laisse tomber

Le 22/11/2018 à 21:05

Bonsoir didlalalere, Bruno

Pour t'aider

Option Explicit
Sub test()
Dim i As Long, x As Long
    Application.ScreenUpdating = False
    x = ThisWorkbook.Worksheets.Count
    For i = 1 To x - 1
        With Sheets(i).Range("a8").CurrentRegion
            .AutoFilter 1, "v"
            If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
                .Offset(1).Resize(.Rows.Count - 1).Copy Sheets(x).Range("a" & Rows.Count).End(xlUp)(2)
            End If
            .AutoFilter
        End With
    Next
    Application.ScreenUpdating = True
End Sub

klin89

Le 23/11/2018 à 09:58

merci Klin89

j’imagine que çà doit fonctionner mais toutes ces formules et codes....moi, je suis comme une poule ayant trouvé un couteau ! je ne sais pas quoi en faire

je pense , j'imagine que c'est un code vba, que c'est pour faire une macro .....

mais où ? comment ?

je vais aller sur le forum pour chercher comment faire...

je reviens vers toi si je ne trouve pas

merci quand même

Le 23/11/2018 à 19:12

Je déclare forfait...

j'ai pris le cours du site pour créer une macro

j'ai tout bien fait comme indiqué ainsi dans la feuille récap j'ai bien créé une macro portant le nom Vegan.

j'ai associé à cette macro un bouton....

enregistrer sous excel prenant en charge les macros...

et puis ...voilà...quand je clique sur le bouton : RIEN

J'veux bien encore un peu d'aide !

HEEEEEEELP !

13vegan-1.xlsm (38.51 Ko)

Le 23/11/2018 à 23:09

re didlalalere

J'ai modifié la macro, place la dans un module standard et non pas dans un module de feuille comme tu l'as fait

Attention, j'ai placé la feuille de restitution en 1ère position dans ton classeur, c'est plus judicieux vu le contexte exposé. (voir les légères modifications de la nouvelle macro)

Via le menu Affichage > Barre d'outils > Formulaires

Tu affectes [s=bg-c1f7c8][/s] par un clic droit sur le bouton préalablement créé manuellement

Option Explicit
Sub test()
Dim i As Long, x As Long
    Application.ScreenUpdating = False
    x = ThisWorkbook.Worksheets.Count
    Sheets(1).Cells(1).CurrentRegion.Offset(1).Resize(, 21).ClearContents
    For i = 2 To x
        With Sheets(i).Range("a8").CurrentRegion.Resize(, 21)
            .AutoFilter 1, "v"
            If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
                .Offset(1).Resize(.Rows.Count - 1).Copy Sheets(1).Range("a" & Rows.Count).End(xlUp)(2)
            End If
            .AutoFilter
        End With
    Next
    Application.ScreenUpdating = True
End Sub

klin89

Le 24/11/2018 à 10:53

Merci de tes explications......mais ...

j'ai suivi tes explications, placé la macro dans un module....

enfin d'après ce que je vois dans visual basic c'est en dessous des feuilles dans une arborescence marquée module

j'ai affecté la macro au bouton

RIEN

tu ne peux pas joindre le fichier je comprendrais peut-etre mieux

PS je me suis refait le cours...

4copie-de-vegan-1.xlsm (37.70 Ko)

Le 24/11/2018 à 10:57