Fractionner un tableau dans plusieurs feuilles

Salut à toutes et tous

J'ai un tableau avec x lignes et Y colonnes et une quarantaine de feuilles.

pour exemple Je souhaiterais que la case B5 de la feuille index soit affecter a la case C7 de la feuille A et ainsi de suite.

Existe-t-il un moyen simple?

Merci d'avance pour votre aide

Layani

Pj: le tableau excel

Bonjour, peut être une piste, dans la mesure où la colonne A de la feuille Index reprend les noms de tes onglets,

Tu pourrais faire un truc du genre :

Dim DerniereLigne as integer
DernièreLigne = Range("A65536").End(xlUp).Row

For i = 5 to DerniereLigne
     Sheets("Index").Range("B" & i).Value = Sheets(Selection.Offset(1,0).Value).Range("C7").Value
     Sheets("Index").Range("C" & i).Value = Sheets(Selection.Offset(2,0).Value).Range("C8").Value
    'Etc.
Next

Sheets(Selection.Offset(1,0).Value) va nous permettre de savoir dans quel onglet aller chercher l'info

Voir rajouter une autre boucle pour générer le décalage vers la gauche du Offset...

merci je vais essayer

Bonjour et bonne année,

Une proposition à étudier en ce début d'année.

A te relire.

Cdlt.

Jean-Eric

JE SAIS PAS COMMENT TE REMERCIER C'EST RÉSOLU ET JE SUIS TRES HEUREUX MERCI MERCI ET UN GRAND MERCI

Re,

Merci pour tes remerciements.

Et évidemment tu as tout compris et tu n'as pas besoin d'explications

Cdlt

j'ai compris le concept je suis entraine d'ajouter quelques colonnes et essayer de faire le croisé dynamique je te rend la réponse

j'ai ajouter d'autres colonnes et les a pris en charge en cliquant sur le bouton mises a jour des données et j'ai créé ma récap pour les colonnes ajouter il me reste un souci ajouter des graphes qui seront pris en charge quand je créé des pages

salut jean-eric

j'ai ajouter 6 colonnes et j'ai voulu ajouter sont TCD "(PT_3),je pense dans cette ligne

With wsPT

Set ptMain = .PivotTables("PT_1")

Set pt = .PivotTables("PT_2")

mais j'ai pas pu

merci

Bonjour,

Peux-tu être plus précis ?

Cdlt.

Bonjour jean eric

j'ai résolu mon problème voici le code

With wsPT
        Set ptMain = .PivotTables("PT_1")
        Set pt = .PivotTables("PT_2")
        Set ptn = .PivotTables("PT_3")
        With ptMain.PageFields(1)
            For Each pi In .PivotItems
                .CurrentPage = pi.Value
                pt.PageFields(1).CurrentPage = pi.Value
                Set ws = wb.Worksheets.Add
                With ws
                    .Name = pi.Value
                    .Move After:=wb.Worksheets(Worksheets.Count)
                    ptMain.TableRange1.Copy Destination:=.Cells(6, 2)
                    pt.TableRange1.Copy Destination:=.Cells(13, 2)
                    ptn.TableRange1.Copy Destination:=.Cells(26, 2)
                End With

Mais il me reste un problème que j'ai pas pu le résoudre

je voulais ajouter la colonne Montant dans le TCD genre "PT_1" et la création des graphes pour chaque tableau

Merci

Bonjour et bonne année,

Sans information complémentaire je ne peux pas intervenir pour t'aider.

Cdlt.

bonjour

voici un exemple explicatif de mes besoins merci

cordialement LAYANI