Bonjour,
Je cherche une macro qui me permette de déverser automatiquement les informations de différents onglets « projets » (trente environ) dans un SEUL autre onglet appelé « tableau de synthèse. »
Dans ce tableau de synthèse, « chaque onglet projet »correspondrait à une ligne.
Tous les « onglets projets » sont en réalité la copie renomée du même template dans lequel on rajoute diverses informations.
J’ai réussi à trouver une première macro qui me permet de créer et renommer nouveaux onglets projets en copiant chaque fois et automatiquement le template de départ.
En revanche, je n’arrive pas à trouver un moyen de lier chaque « onglet projet » à une nouvelle ligne dans le tableau de synthèse, à chaque fois, excel me refait la même ligne en prenant les données du template de départ. Il confond donc le template et sa copie.
Que puis-je faire ?
Merci de votre aide
PS : ci dessous la macro qui bloque :
Sub Macro2()
'
' Macro2 Macro
'
'
Sheets("Tableau de synthèse" ).Select
Rows("8:8" ).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Range("B8" ).Select
ActiveCell.FormulaR1C1 = "='Template projet'!R[-6]C[4]"
Range("C8" ).Select
ActiveCell.FormulaR1C1 = "='Template projet'!R[-1]C[5]"
Range("D8" ).Select
ActiveCell.FormulaR1C1 = "='Template projet'!RC[4]"
Range("E8" ).Select
ActiveCell.FormulaR1C1 = "='Template projet'!R[1]C[3]"
Range("F8" ).Select
ActiveCell.FormulaR1C1 = "='Template projet'!R[20]C[2]"
Range("G8" ).Select
ActiveCell.FormulaR1C1 = "='Template projet'!R[19]C[1]"
Range("H8" ).Select
ActiveCell.FormulaR1C1 = "='Template projet'!R[21]C"
Range("I8" ).Select
ActiveCell.FormulaR1C1 = "='Template projet'!R[20]C[1]"
Range("I9" ).Select
Sheets("Template projet" ).Select
End Sub