Dispatcher une liste sur plusieurs feuilles et appliquer des formules

Bonjour le forum, je tente de créer un système qui soit capable de dispatcher plusieurs lignes d'une liste que je colle sur plusieurs feuilles et ensuite appliquer des formules et mise en place de MFC mais j'en suis pas encore à un tel niveau en VBA..

Je fais donc appel à vos connaissances et vous invite à venir regarder cela sur une démo qui illustre mes propos.

54demo1.xlsm (68.61 Ko)

Je vous remercie par avance

Salut Thierry,

voilà que je découvre ta demande : as-tu eu une solution depuis?

Sinon,

image

Comment fonctionnes-tu, concrètement : ta marche à suivre, en somme, dans la "construction" de ta BDD ?
Tu effaces tout en collant d'autres données?
T'arrive-t-il de ne modifier qu'un nombre-référence dans ton cadre bleu ?
Les données doivent-elles être systématiquement ajoutées ou écraser les anciens résultats ?
...

Bref, dis-nous en plus!

A+

Thierry,

si tu reviens un jour sur ton sujet...

Solution en VBA.
Une première boucle pour encoder les données brutes ainsi que le tableau intermédiaire (1,0) en [B10:BJ15].

        For y = x To UBound(tTab, 1) Step 6
            iFlag = iFlag + 1
            tPg(iFlag, 1) = "V" & x
            For Z = 2 To 27
                tPg(iFlag, Z) = tTab(y, Z)
                If Z < 6 Then tPg(iFlag, Z + 28) = tTab(y - (x - 1), Z + 28)
                tPg(iFlag, Z + 35) = 0
                For k = 30 To 33
                    If tTab(y, Z) = tTab(y - (x - 1), k) Then tPg(iFlag, Z + 35) = 1
                Next
            Next
        Next

Une deuxième pour la synthèse en [AL20].
À noter que le tableau intermédiaire et le tableau 'tAdd' ne sont là que pour la démo.
Un fichier final n'en aurait pas besoin. La synthèse serait affichée en [AL10].

            For y = 1 To UBound(tAdd, 2)
                iFlag = 0
                For Z = 1 To iIdx / 6
                    iFlag = iFlag + tPg(Z, y + 36)
                    tAdd(Z, y) = iFlag
                Next
            Next

Un double-clic sur la feuille 'BDD' démarre la macro.

A+, on ne sait jamais...

10thierry.xlsm (59.23 Ko)
Rechercher des sujets similaires à "dispatcher liste feuilles appliquer formules"